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10 ; SAVE #02: MENU. SRC 
20 ; 

40 ; 

50 ; 

60 ; REV 4.1 9/19/83 X-MODEM PROTOCOL 
70 ; AND SO COLUMN OPTION ADDED. 

80 5 NOW WORKS OF PORT #2 FOR 
90 ; NEW XL COMPUTERS. 

0100 : ELIMINATED 7/8 BIT INPUT. 

0110 5 WORKS ON CARTRIDGE NOW. 

0120 ; NOW WITH AUTODIAL 10/19/83 
0130 ; REV 5.0 XMOD WRAP/PR #DIALED 
0140 ; HOOKS— MODEM DRIVER/VIDEO DRIVER 
0150 ; D I SK CLOSE ON XMOD RICH- 10/ 1/84 



0 1 60 

w 

* 


-0001 

0 1 70 

PROM ~ 

1 


0 1 80 

it 

* 



0190 

. INCLUDE 


10 ; 

SAVE #D 

2: VAR. 


20 ; 




30 3 



0000 

40 

* = 

$80 

0080 

50 BUFFER *= 

£+22 

0096 

60 BUFF £ = 

£+40 


70 ; 




SO ; GOES TO 

$BE ON 


90 ; 



00 BE 

0 1 00 

£ = 

$0480 


0 1 1 0 

■ 


0480 

0 1 20 

TOPBUF 

£ = £+2 

0482 

0 1 30 

BOTBUF 

£— £+2 

0484 

0140 

BUFMAX 

£— £+2 

0486 

0 1 50 

MAXTOR 

£— £+2 

0488 

0160 

TRANF £ 

= £4*1 

0489 

0 1 70 

BINF £ = 

£•41 

O 4 8 A 

0180 

BIT 8 F £ 

« £4*1 

048B 

0 1 90 

DUPLF £ 

= £4*1 

048C 

0200 

CASFLG 

£ = £4*1 

048D 

02 1 0 

SAVMOD 

£= £4*1 

048E 

0220 

SCRFLG 

£=« £+1 

048F 

0230 

COLFLG 

£ — £ + 1 

0490 

0240 

DISKF £ 

« £ + 1 

0491 

0250 

PRFLG £ 

« £4-1 

0492 

0260 

LOADF £ 

= £ + 1 

0493 

0270 

SAVEF £ 

= £4-1 

0494 

0280 

FULLF * 

= £4*1 

0495 

0290 

DPRFLG 

£~ £4-1 

0496 

0300 

ANSFLG 

£ = £4*1 

0497 

0310 

IN VST £ 

* £4-1 

0498 

0320 

INVEND 

£= £4*1 

0499 

0340 

INIT £ = 

£ + 7 

04 AO 

0350 

INI BYTE 

*r 

!! 

04 A 2 

0360 

PLCNT * 

- £4*1 

04 A3 

0370 

DIALADD 

£ = £ 4* 


0380 

5 MODEM 

BUFFER 

04A5 

0390 

BUFFNUM 

£~ £ + 

04A6 

0400 

DIALF £ 

= £+1 


3 CART ASSEMBLE 


; BUFFER POINTER 


ZERO PAGE 


4 






; START INVERSE 
: POSITION 
; JSR I NIT 
: ORIGINAL DOSINI 
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D 


O 4 A 7 

04AS 

04AA 

04B0 

04B1 

04B2 

04B3 

04B4 02 

04B5 

04B6 

04B7 

04 BB 

04B9 

04 BA 

04BB 


04BC 

72A1 

^ 04 BF 82 A 1 

04C 1 DOA 1 
04C3 E6A1 
04C5 1 4A2 
04C7 50A2 
04C9 5FA2 
04 CB 56A2 
04CD 68A2 
04CF 71A2 
04 D 1 7AA2 
04 D 3 3330309 B 
04D7 9B9B 


04D9 
055B 
055C 
U55D 
05 5 E 
055F 

0560 

0561 

0562 

0563 

0564 

0565 
0567 

D68 45 
0569 
056A 
056B 
056C 
056D 


=00C6 
=00 C 8 
=00CA 
=0 OCC 


04 1 0 
jf 0420 
0430 
C 0440 
0450 
0460 
0470 
0480 
0490 
0500 
05 1 0 
0520 
0530 
0540 
0550 
,0560 
***0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 

0670 

0671 


HANDFLG * = *+l ; HNDLER BOOTED? 

RENAME *= *+2 
HDRBFF *~ *4-6 
OUTBI T * = *4-1 

INPBIT * = *4-1 

OUTINT * = *4-1 
INPINT * = *4-1 

OUTBUF 

OUTBFPT * = *4-1 
INPBFPT * = *4-1 
IBUFERR *« *4-1 
I STOP *= *4-1 
DEFFLG * = *+l 
PARFLG *= *4-1 
SCRAT * = *4-1 
INF* *= *4-1 

JTABLE -WORD JMODINIT ; JTABLE+O 
-WORD JOPEN ;JTABUE>2 
-WORD JCLOSE ;JTABL.E4-4 
-WORD JREAD ;JTABLE4-6 
-WORD J WRITE ;JTABLE4*8 
-WORD JMSTATS 5 JTABLE+ 1 0 — c A ' 
-WORD JONHOOK ; JTABLE4-12 
-WORD JOFFHOOK ;JTABLE4l4 
.WORD JMSA ; JTABLE+1& - * i-t 
. WORD JMSB ; JTABLE+j.8 '^'7 
.WORD JMSC ; JTABLE+20 - W recr 
GBAUD .BYTE "300" , 155, 155. 155 



0680 ; 

0690 XMBUFF *= *4-130 
0700 XTEMF* *= *4-1 
0710 XTEMP1 * = *+l 
0720 XTEMP2 *= *4-1 
0730 CHKSUM *= *4-1 
0740 XMODF *^ *4-1 
0750 ERFL *= *4-1 
0760 KEYTOG *= *4-1 
0770 XBYTE * = *4-1 
0780 L.ASTREC *= *4-1 
0790 XBLKNUM *= *4-1 
0800 BFPTS *= *4-2 
0810 DERFLG *= *4-1 
0820 BAUD -BYTE 69 
0830 ENDRAM *= *4-1 
0840 LASTCH *= *4-1 
0850 GOTREC *= *4-1 
0860 PHONE *= *4-1 
0870 OPFLG *= *4-1 
0880 ; 

0200 -INCLUDE #Ds SYSTEXT . SRC 

10 ; SAVE #D2s SYSTEXT. SRC 
20 ; 

30 ; 

40 PLPTR = 3>C6 

50 DIALBF = $C8 

60 INPBUF = $CA 
70 BUFPTR = $CC 


BC 


PAGE 



D “i 


=OOCE 

80 PTR 

SCE 

=OODO 

90 PRPTR = 

SDO 

=00D2 

0 1 00 

SENPTR 

= SD2 

=0004 

0 1 1 0 

FRO = 

SD4 

=0009 

0 1 20 

CPUTR = 

S09 

=00 OB 

0 1 30 

CPUTC = 

SOB 

=0003 

0140 

COPEN = 

S03 

=oooc 

0150 

CCLOSE 

= SOC 

=0007 

0 1 60 

CGETC = 

‘ SO 7 

=0005 

0170 

CGETR = 

• SOS 

=0000 

0 1 80 

CSTATUS 

; = sod 

=000 A 

0190 

DOSVEC 

= SOA 

=oooc 

0200 

DOS INI 

= SOC 

=00 1 0 

02 1 0 

F'OKMSK 

= S 1 0 

=00 1 1 

0220 

BRKKEY 

= SI 1 

=00 1 2 

0230 

RTCLOK 

= SI 2 

=0210 

0240 

VTIMR1 

= SO 2 1 0 

=02 1 6 

0250 

VIM IRQ 

= S0216 

=022B 

0260 

SRTIMR 

= S022B 

=022F 

0270 

SDMCTL 

= S022F 

=0230 

0280 

SDLSTL 

= SO 230 

=0231 

0290 

SDLSTH 

= S0231 

=0232 

0300 

SSKCTL 

= S0232 

=0234 

03 1 0 

LPENH = 

S0234 

— D “T cr 

— -J x- -_J 

0320 

LPENV = 

S0235 

=026F 

0330 

GPR I OR 

= S026F 

=0270 

0340 

PADDLO 

= S0270 

=0278 

0350 

ST I CKO 

= S0278 

=0284 

0360 

STRIGO 

= S0284 

=02BE 

0370 

SHFLK = 

S02BE 

=02C0 

0380 

PCOLRO 

= S02C0 

=02C4 

0390 

COLOR’D 

= S02C4 

=02E5 

0400 

MEMTOP 

= S02E5 

=02E7 

04 1 0 

MEMLO = 

S02E7 

=02F3 

0420 

CHART = 

S02F3 

=02F4 

0430 

CHBAS = 

S02F4 

=02FC 

0440 

PH = 

W 1 1 

S02FC 

=02FE 

0450 

DSPFLG 

= S02FE 

=0300 

0460 

DDEVIC 

= SO 3 00 

=030 1 

0470 

DUN IT = 

SO 301 

=0302 

0480 

DCOMND 

= SO 30 2 

=0303 

0490 

DSTATS 

= SO 30 3 

=0304 

0500 

DBUFLQ 

= SO 30 4 

=0305 

05 1 0 

DBUFHI 

= SO 30 5 

=0306 

0520 

DTIMLO 

= SO 30 6 

=0308 

0530 

DBYTLO 

= S0308 

=0309 

0540 

DBYTHI 

= S0309 

=030 A 

0550 

DAUX1 = 

SO 30 A 

=030B 

0560 

DAUX2 = 

S030B 

=0340 

0570 

I OCB = 

S0340 

=0342 

0580 

ICCOM = 

S0342 

=0342 

0590 

ICCMD = 

S0342 

=0344 

0600 

ICBAL = 

S0344 

=0345 

06 1 0 

1CBAH = 

S0345 

=0348 

0620 

ICBLL = 

SO 348 

=0349 

0630 

ICBLH = 

SO 34 9 

=03 4 A 

0640 

ICAX1 = 

S034A 

=034B 

0650 

ICAX2 = 

S034B 


; PUT RECORD 


■ 8 
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Os SYSTEXT. SRC 


=E456 


0660 

CIOV = 

$E456 

=E459 


0670 

SIOV = 

$E459 

=E45C 


0680 

SETVBV 

= $E45C 

=E462 


0690 

XITVBV 

= $E462 

=E474 


0700 

GSRETN 

= $E474 

=FCD8 


07 1 0 

CLICK = 

= $FCDS 

=0000 


0720 

HPOSPO 

= $oooo 

-DO 00 


0730 

MOPF = 

$ 0000 

=0004 


0740 

HPOSMO 

= $0004 

=0004 


0750 

POPF = 

$0004 

=0008 


0 7 6 0 

MO PL = 

$0008 

=0008 


0770 

SIZEPO 

= $0008 

=0u0C 


0780 

POPL = 

$DOOC 

=0000 


0790 

SIZEM = 

* $DOOC 

=0000 


0800 

GRAFPO 

= $0000 

=0010 


08 1 0 

TRIGO = 

: $0010 

=0011 


0820 

GRAFM = 

= $0011 

=00 1 2 


0830 

COLPMO 

= $0012 

=0016 


0840 

COLPFO 

= $0016 

=001 A 


0850 

COLBK = 

' $001 A 

=00 IB 


0860 

PRIOR = 

$00 IB 

=0010 


0870 

VDELAY 

= $00 1C 

=0010 


0880 

GRACTL 

= $0010 

=0014 


0890 

HITCLR 

= $0014 

=00 IF 


0900 

CONSOL 

= $00 IF 

=0200 


09 1 0 

POTO = 

$0200 

=0200 


0920 

AU0F1 = 

$0200 

=0201 


0930 

AUDC1 = 

$0201 

=0208 


0940 

AUDCTL 

= $0208 

=0208 


0950 

ALLPOT 

= $0208 

=0209 


0960 

KBCODE 

= $0209 

=0209 


0970 

STIMER 

= $0209 

=D20A 


0980 

RANDOM 

= $020 A 

=020 A 


0990 

SERIN = 

$D20A 

=D20A 


1 000 

SKREST 

= $020 A 

=020B 


1 0 1 0 

POTGO = 

$D20B 

=0200 


1020 

SEROUT 

= $D20C 

=020E 


1030 

IRQEN = 

$020E 

=D20E 


1 040 

IRQST = 

$D20E 

=D20F 


1 050 

SKCTL = 

$02 OF 

=D20F 


1 060 

SKSTAT 

= $D20F 

=0300 


1 070 

PORTA = 

$0300 

=0300 


1 080 

PORTB = 

$0300 

=0300 


1 090 

PI A = 

$0300 

=0302 


1 1 00 

PBCTL = 

$0302 

=0400 


1110 

OMACTL 

= $0400 

=0401 


1 1 20 

CHACTL 

= $0401 

=0402 


1 1 30 

DL I STL 

= $0402 

=0403 


1 1 40 

OLISTH 

= $0403 

=0404 


1150 

HSCROL 

= $• 0 4 U 4 

=0405 


1 1 60 

VSCROL 

= $0405 

=0407 


1170 

PMBASE 

= $0407 

“04 O 9 


1 1 80 

CHBASE 

= $0409 



1190 

WSYNC = 

$040 A 

=D40B 


1 200 

VCOUNT 

= $D40B 

=04 OC 


1210 

PENH = 

$D40C 

=0400 


1220 

PENV = 

$0400 

=D40E 


1 230 

NMIEN = 

$04 OE 


PORTA FOR 1200 
REALLY PACTL 
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D: SYSTEXT. SRC 


-D40F 

1240 

NMIRES 

= $D40F 

=D40F 

1250 

NMIST * 

$D40F 

=D800 

1 260 

AFP * 

$D800 

=D8E6 

1270 

FASC « 

$D8E6 

=D9AA 

1 280 

IFF « 

$D9AA 

—D9D2 

1290 

FPI = 

$D9D2 

=D A60 

1 %i>oo 

FSUB - 

$DA60 

-DB28 

1310 

FDIV = 

$DB2S 

=DDB6 

1320 

FMOVE « 

$DDB6 


02 1 0 

n 

* 


=000 1 

0220 

m 

IF PROM 


05 6 E 0230 #= $A000 

0240 . ELBE 

0250 *= *1D00 

0260 .END IF 

0270 ; 

0280 .INCLUDE #D: L0ADNG0. SRC 

10 ; SAVE #D2: LOADNGD. SRC 
20 ; 

30 ; 

40 ; MICRO LOADER/RUN SYSTEM FOR MPP 
50 ; SMART TERMINAL 10/4/84 
60 ; STRUCTURE OF HEADERS IS: 

70 ; BYTES 0~>5 

80 ; STOCK <FF FF SL. SH EL EH) 

90 ; WILL EXECUTE AT BYTES: SL SH 

0100 ; DO NOT USE MULTIPLE ORIGIN FILES! 
0110 ; (USE BINARY SAVE FROM D0S2.0.ETC) 
0120 ; WOULD START AS: *=$BEGIN-3 

0130 ; JMP GO/ I NIT (3BYTES) 

0140 ; BEGIN ACTUAL CODE 

0150 ; 

0 160 ; 

0170 ; 


A 000 

2091 AO 

0 1 80 

GETHDR ■ 

JSR CLOSE 

AO 03 

A 2 30 

0 1 90 

LDX 

#$30 

AO 05 

A903 

0200 

LDA 

#$03 

A007 

9D4203 

0210 

8TA 

ICCOM, X 

AOOA 

ADA804 

0220 

LDA 

RFNAME 

AOOD 

9D4403 

0230 

STA 

ICBAL , X 

AO 1 0 

ADA904 

0240 

LDA 

RFNAME+1 

AO 1 3 

9D4503 

0250 

STA 

ICBAH, X 

AO 1 6 

A904 

0260 

LDA 

#4 

AO 1 8 

9D4A03 

0270 

STA 

ICAX1 , X 

AO 1 B 

A 9 00 

0280 

LDA 

#0 

AO ID 

9D4B03 

0290 

STA 

ICAX2, X 

AO 20 

2056E4 

0300 

J SR 

C I OV 

A 023 

3048 

03 1 0 

BMI 

OUTZ 

AO 25 

A 907 

0320 

GETEM LDA #7 ; READ BYTES 

AO 2 7 

9D4203 

0330 

STA 

ICCOM, X 

A02A 

A9AA 

0340 

LDA 

# CHDRBFF 

A02C 

9D4403 

0350 

STA 

ICBAL, X 

A02F 

A 90 4 

0360 

LDA 

# >HDRBFF 

A031 

9D4503 

0370 

STA 

ICBAH, X 

A 034 

A 9 00 

0380 

LDA 

#$00 

AO 36 

9D4903 

0390 

STA 

I CBLH , X 

AO 3 9 

A906 

0400 

LDA 

#$06 ; 6 BYTE HEADER 

A03B 

9D4803 

04 1 0 

STA 

ICBLL, X 
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A03E 
A04 i 
AO 4 3 
A 046 
A04? 
A04C 
A O 4 F 
AOS i 
A 05 4 
AO 57 
AOS? 
AO 5 A 
A OSD 
AOSF 
A O 6 2 
AO 6 5 
A067 
A06A 
A06D 
A06E 
A06F 
AO 7 1 
AO 74 
A075 
AO 7 7 
A079 
A07C 
A07F 
A081 
A082 
A085 
AO 87 
AO 88 


A08B 
A08E 
A09 1 
A094 
A097 
AO? A 
A09D 
AO AO 
AO A3 
A0A6 
A0A9 


D * 27 1 


2056E4 

0420 

J SR 

CIOV 


30 2 A 

0430 

BMI 

OUTZ 


ADAC04 

0440 

LDA 

HDRBFF+2 ; LOADADDR 

9D4403 

0450 

STA 

ICBAL, X 


ADAD04 

0460 

LDA 

HDRBFF+: 

3 

9D4503 

0470 

STA 

ICBAH, X 


A980 

0480 

LOOF'ZA LDA #$80 


9D4803 

0490 

STA 

ICBLL, X 


2056E4 

0500 

J SR 

CIOV 


30 1 4 

0510 

BMI 

OUTZ 

; ALL DONE? 

18 

0520 

CLC 



BD4403 

0530 

LDA 

ICBAL, X 


6980 

0540 

ADC 

#$80 


9D4403 

0550 

STA 

ICBAL., X 


BD4503 

0560 

LDA 

ICBAH, X 


6900 

0570 

ADC 

#$oo 


9D4503 

0580 

STA 

ICBAH, X 


4C4FA0 

0590 

JMP 

LOOP Z A 


98 

0600 

OUTZ TYA 


48 

06 1 0 

PH A 


; CANT USE DISK 

A 2 30 

0620 

LDX 

#$30 

; ERROR - WILL 

2029AB 

0630 

JSR 

CIOCB 

; HANG ON BOOT 

68 

0640 

PLA 



C988 

0650 

CMP 

#$88 


D009 

0660 

BNE 

NOWAY 


20S8A0 

0670 

JSR 

RUNITZ 


2 08 E AO 

0680 

JSR 

OPEN 


A 00 1 

0690 

LDY 

#$01 


60 

0700 

RTS 



208EA0 

07 1 0 

NOWAY JSR OPEN 


AOFF 

0720 

LDY 

#$FF 


60 

0730 

RTS 




6CAC04 


0740 RUNITZ JMP (HDRBFF+2) 


OOFE 

0750 
0290 
10 ; 
20 ; 
30 ; 
40 ; 
50 ; 
60 ; 
70 ; 
80 - 
90 ; 
0 1 00 

000 1 

0 1 1 0 

6CBD04 

0 1 20 
0 1 30 

6CBF04 

0 1 40 

SCC 1 04 

0 1 50 

6CC304 

0 1 60 

6CC504 

0 1 70 

6CC704 

0 1 SO 

6CC904 

0190 

6CCB04 

0200 

6CCD04 

02 1 0 

6CCF04 

0220 

6CD104 

0230 


. I NCLUDE #D s MODS . SRC 
SAVE #D2s MODE*. SRC 


REV 3.0 WITH ODD/EVEN PARITY 
PARFL6=0 NO PARITY 
PARFLG-l ODD 
PARFLG=$80 EVEN 


BUFLEN = $FE 
OBFLEN = 1 

n 

n 

MODINIT JMP ( JTABLE) 
OPEN JMP < JTABLE+2) 
CLOSE JMP < JTABLE+4) 
READ JMP < JTABLE+6) 
WRITE JMP < JTABLE+S) 
MSTATS JMP ( JTABLE+10) 
0NHOOK JMP (JTABLE+12) 
OFFHOOK JMP ( JTABL.E+ 14) 
MSPEC1 JMP (JTABLE+16) 
MSPEC2 JMP (JTABLE+1S) 
MSPEC3 JMP (JTABLE+20) 


9 8 
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0240 ; 


AOAC 

ADB1G4 

0250 

DRIVER LDA INF'BIT 

AOAF 

DO 13 

0260 

BNE GETBIT ; VYrG 

AOB 1 

A 9 20 

0270 

LDA #$20 

A0B3 

2D00D3 

0280 

AND PI A 

A0B6 

FG63 

0290 

BEG) SENDBIT ; st 

A0B8 

A 908 

0300 

LDA #8 j 

AOBA 

8DB104 

03 1 0 

STA INF'BIT 

AOBD 

A 90 4 

0320 

LDA #4 ‘ pt 

AOBF 

8DB304 

0330 

STA INF'INT 

A0C2 

DO 57 

0340 

0350 

BNE SENDBIT ; BRA 

n 

n 



0360 

0370 

; READ A BIT FROM F'lA IF ITS TIME 

It 

ft 

A0C4 

CEB3G4 

0380 

GETBIT DEC INF'INT 

A0C7 

JLr ■»' wf a... 

0390 

BNE SENDBIT r "~ ^ Y 

A0C9 

ADB804 

0400 

LDA ISTOF' J sto * 5 

AOCC 

F0G8 

04 1 0 

BEG) NOSTOP 

AOCE 

CEB 104 

0420 

DEC INF'BIT 

A 0 D 1 

CEB8G4 

0430 

DEC ISTOF' 

ADD 4 

F045 

0440 

/ BEGI SENDBIT ; BRA 

A0D6 

A 9 20 

0450 

NOSTOF' LDA #$20 

ADDS 

2D GOD 3 

0460 

AND F'l A 

AODB 

FOG 3 

0470 

BEG) ZIF'O 

AODD 

38 

0480 

SEC 

AODE 

BOG 1 

0490 

BCS ROTATE 

AO EG 

18 

0500 

ZIF'O CLC 

AGE i 

6EBCG4 

05 1 0 

ROTATE ROR INF- 

AGE4 

CEB 104 

0520 

DEC INF'BIT 

AGE7 

D02B 

0530 

BNE NOBYTE 

AGE9 

98 

0540 

TYA 

AuEA 

48 

0550 

F'HA 

AGEB 

CEB 604 

0560 

DEC I NF'BFF’T 

AGEE 

08 

0570 

DUD 
r rir 

AOEF 

ADB6G4 

0580 

LDA INPBFPT 

AGF2 

28 

0590 

PLP 

A0F3 

DO 08 

0600 

BNE BFNOTFUL 

A OF 5 

A9FE 

06 1 0 

LDA #BUFLEN 

AGF7 

8DB7G4 

0620 

STA IBUFERR 

AGFA 

SDB604 

0630 

STA INPBFPT 

AOFD 

A8 

0640 

BFNOTFUL TAY 

AOFE 

ADBC04 

0650 

LDA INP 

AiGl 

49FF 

0660 

EOR #*FF 

A 1 G3 

9 1 CA 

0670 

STA ( INP BUF) , Y 

A 1 05 

68 

0680 

PLA 

A 1 06 

A8 

0690 

TAY 

A 107 

EEB104 

0700 

INC INPBIT 

A 1 GA 

A 903 

07 1 0 

LDA #3 

A 1 OC 

8DB3G4 

0720 

STA INPINT 

A 1 OF 

EEB8G4 

0730 

INC ISTOP 

A1 12 

D007 

0740 

BNE SENDBIT ; BRA 

A1 14 

A 903 

0750 

NOBYTE LDA #3 

A 1 16 

8DB304 

0760 

STA INPINT 

A1 19 

DODO 

0770 

BNE SENDBIT 


07 SO : 
0790 : 
0800 : 
0810 : 


CHECK STATUS OF OUTPUT BUF 
AND SEND PROCESS 
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D: MODE. SRC 


A1 iB 

ADB004 

0820 

SENDBIT 

LDA OUTBIT 

A1 IE 

F026 

0830 

BEG! 

CHKBUF 


A 1 20 

CEB204 

0840 

DEC 

OUT I NT 


A123 

BO IF 

0850 

BNE 

RETURN 


A 125 

CEB004 

0860 

DEC 

OUTB I T 


A 1 28 

F01C 

0870 

BEQ 

CHKBUF 


A 1 2A 

18 

0880 

CLC 



A 1 2B 

6EB404 

0890 

ROF: 

OUTBUF 


A 1 2E 

BOO 7 

0900 

BCS 

ONEOUT 


A 130 

A9EF 

0910 

LDA 

#$EF 


A 132 

2D00D3 

0920 

AND 

PIA 


A 135 

9005 

0930 

BCC 

ZIPSKIF 


A 137 

A910 

0940 

ONEOUT LDA #$10 


A 139 

0D00D3 

0950 

ORA 

PIA 


A 1 3C 

8D00D3 

0960 

ZIPSKIF* 

STA PIA 


A 1 3F 

A 9 03 

0970 

LDA 

Tr •—> 


A 1 4 1 

8DB204 

0980 

STA 

OUT I NT 


A 1 44 

68 

0990 

RETURN PLA 

; RTI 

A 145 

40 

1 000 

RTI 



A 146 

ADB504 

1 0 1 0 

CHKBUF LDA OUTBFPT 

A 1 49 

F0F9 

1 020 

BEQ 

RETURN 


A 1 4B 

A 903 

1030 

LDA 

#3 


A 1 4D 

SDB204 

1 040 

STA 

OUT I NT 


A150 

A90A 

1 050 

LDA 

# 1 0 


A 1 52 

8DB004 

1 060 

STA 

OUTBIT 


A 1 55 

SA 

1 070 

TXA 



A 156 

48 

1080 

PHA 



A 1 57 

AEB5U4 

1 090 

LDX 

OUTBFPT 


A 1 5A 

BDB404 

1 1 00 

LDA 

OUTBUF, X 


A 1 5D 

49PP 

1110 

EOR 

#$FF 


A 1 5F 

8DB404 

1 1 20 

STA 

OUTBUF 


A 1 62 

68 

1 1 30 

PLA 



A 1 63 

AA 

1 1 40 

TAX 



A1 64 

A9 1 0 

1150 

LDA 

#$10 


A 1 66 

0D00D3 

1 160 

ORA 

PIA 


A 169 

SD00D3 

1170 

STA 

PIA 

; START 

A 1 6C 

CEB504 

1 1 80 

DEC 

OUTBFPT 


A16F 

B8 

1 1 90 

CLV 



A 170 

50D2 

1 200 

BVC 

RETURN 




1210 

m 

n 





1220 

; INIT 





1230 

• 



A172 

A 9 00 

1240 

JMODINIT LDA #0 


A 1 74 

8D02D3 

1250 

STA 

F'BCTL 


A 1 77 

A950 

1260 

LDA 

#$50 


A 179 

SD00D3 

1270 

STA 

PORTB 


A 1 7C 

A 90 4 

1280 

LDA 

#$04 


A 1 7E 

8D02D3 

1 290 

STA 

PBCTL 


A 1 8 1 

60 

1 300 

RTS 





1 3 1 0 

; OPEN 





1 320 

« 

n 



A 1 82 

A913 

1 330 

JOPEN LDA #$13 


A 184 

8D0FD2 

1340 

STA 

$D20F 

; SKCTL. 

A 187 

8D3202 

1350 

STA 

$0232 

; SSKCTL 

A ISA 

A 900 

1 360 

— LDA 

#0 


A 1 SC 

SDB004 

1370 

STA 

OUTBIT 


A 1 8F 

8DB104 

1 380 

STA 

INF’B I T 


A192 

8DB504 

1 390 

— STA 

OUTBFPT 
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D — L ~ 


A 1 95 

8DBS04 

1 400 

— STA 

I STOP 


Ai 98 

8DB704 

1410 

— STA 

IBUFERR 


A 1 9B 

8D0SD2 

1 420 

STA 

AUDCTL 


A19E 

A9FE 

1 430 

LDA 

#BUFL.EN 


A 1 AO 

8DB604 

1440 

STA 

INPBFPT 


Ai A3 

AD6805 

1 450 

LDA 

BAUD 


A 1 A6 

8D00D2 

1460 

STA 

AUDF 1 


A1A9 

A9A0 

1470 

LDA 

#*A0 


Ai AB 

SD01D2 

1 480 

STA 

AUDC1 


A1AE 

8D03D2 

1490 

STA 

AIJDC 1 +2 


AIBi 

8D05D2 

1500 

STA 

AUDC1+4 


AiB4 

8D07D2 

1510 

STA 

AUDC1-+-6 


A 1 B7 

A9AC 

1520 

LDA 

#DR I VER& 

n nr nr 

X.J V.J 

AiB9 

8D 1 002 

1 530 

STA 

VT I MR 1 


Ai BC 

A9A0 

1540 

LDA 

#DRI VER/ 

256 

A1BE 

8D1 102 

1550 

STA 

VTIMRl+l 


A1C1 

A510 

1 560 

LDA 

POKMSK 


A1C3 

090 1 

1570 

ORA 

#1 


A 1 C5 

8510 

1580 

STA 

POKMSK 


AiC7 

8D0ED2 

1590 

STA 

IRQEN 


A 1 CA 

8D09D2 

1 600 

STA 

STIMER 


A1CD 

AOO 1 

1610 

LDY 

#1 


AiCF 

60 

1620 

RTS 





1 630 

5 CLOSE 





1640 

t« 

•1 



A i DO 

ADB504 

1 650 

J CLOSE LDA OUTBFPT - 

A 1 D3 

DOFB 

1660 

BNE 

JCLOSE 

is 

A1D5 

ADB004 

1670 

LDA 

OUTBIT 


A1D8 

D0F6 

1680 

BNE 

JCLOSE 


AiDA 

A9FE 

1690 

LDA 

#3>FE 


A 1 DC 

2510 

1 700 

AND 

POKMSK 


AiDE 

8510 

1710 

STA 

POKMSK 


A 1 EO 

8D0ED2 

1720 

STA 

IRQEN 


A1E3 

AOO 1 

1 730 

LDY 

#1 


A 1 E5 

60 

1 740 

RTS 





1750 

* 





1760 

; READ 

SEND A BYTE 

A i E6 

AOFD 

1770 

JREAD LDY #BUFLEN-1 

A1ES 

B 1 CA 

1780 

LDA 

( INPBUF) 

,V 

AiEA 

48 

1 790 

PHA 



AiEB 

78 

1 800 

SEI 



AiEC 

CCB604 

1810 

CPY 

INPBFPT 


A1EF 

FOOE 

1820 

BED 

CHK 


AiFi 

88 

1830 

M0VE4 DEY 


A 1 F2 

58 

1 840 

CL I 



A 1F3 

B 1 CA 

1850 

LDA 

< INPBUF) 

,Y 

A1F5 

C8 

I860 

I NY 



A1F6 

9 1 CA 

1870 

STA 

( INPBUF) 

,Y 

A 1 F8 

88 

1880 

DEY 



A 1 F9 

78 

1890 

SEI 



AiFA 

CCB604 

1 900 

CPY 

INPBFPT 


A1FD 

D0F2 

1910 

BNE 

M0VE4 


A1FF 

EEB604 

1 920 

CHK INC 

INPBFPT 


A202 

58 

1 930 

CLI 



A 2 03 

68 

1 940 

PLA 



A204 

AEB704 

1950 

LDX 

IBUFERR 


A207 

F 008 

1960 

BEQ 

OK 5 


A 20 9 

A 2 00 

1 970 

LDX 

#0 



99 
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A20B 

8EB704 

1980 

STX IBUFERR 

A20E 

A089 

1990 

LDY #137 

A2 1 0 

60 

2000 

RTS 

A21 1 

A00 1 

2010 

OKS LDY #1 

A213 

60 

2020 

RTS 



2030 

n 

5 



2040 

; WRITE SEND A CHAR 



2050 

m 

* 

A214 

ACBA04 

2060 

JWRITE LDY PARFL.G 

A217 

FOIE 

2070 

BEQ NOPAR 

A219 

297F 

2080 

AND #*7F 

A21B 

48 

2090 

PHA 

A21C 

A 000 

2 1 00 

LDY #0 

A2 1 E 

1 00 1 

2110 

CKLOOP BPL. SHFT 

A220 

C8 

2 1 20 

I NY 

A22 1 

OA 

2 1 30 

SHFT ASL A 

/soo*-) 

*» «4— 4m* 4»m 

BOFA 

2140 

BNE CKLOOP 

A224 

98 

2 1 50 

TYA 

A225 

4A 

2 1 60 

LSR A 

A226 

68 

2 1 70 

PL A 

A227 

ACBAU4 

2180 

LDY PARFLG 

A22A 

3007 

2 1 90 

Bli I EVENP 

A22C 

BOO 9 

2200 

BCS NOPAR 

A22E 

0980 

2210 

ORA #$80 

A230 

4C37A2 

2220 

JMP NOPAR 

A233 

9002 

2230 

EVENP BCC NOPAR 

A235 

0980 

2240 

ORA #*80 

A 2 37 

ACB504 

nnCA 
x. vJ U 

NOPAR LDY OUTBFPT 

A23A 

C001 

2260 

CPY #OBFLEN 

A23C 

F0D6 

2270 

BEQ JWRITE 

A23E 

78 

2280 

SEI 

A23F 

AEB504 

2290 

LDX OUTBFPT 

A242 

ES 

2300 

I NX 

A243 

8EB504 

2310 

STX OUTBFPT 

A246 

9DB404 

2320 

ST A OUTBUF.X 

A249 

58 

2330 

CL I 

A24A 

9DB404 

2340 

RET 123 STA OUTBUF, X 

A24D 

A 001 

2350 

RETNOW LDY #1 

A24F 

60 

2360 

RTS 



2370 

» 

n 



2380 

; MSTATS 

A250 

AD00D3 

2390 

JliSTATS LDA PORTB C 

A253 

2980 

2400 

AND #$80 - /<&#$(£> 

A255 

60 

2410 

RTS 



2420 

a 

n 



2430 

; OFFHOOK 

A256 

AD00D3 

2440 

JOFFHOOK LDA PORTB 

A259 

29BF 

2450 

AND #$BF - / 0 / / 

A25B 

8D00D3 

2460 

STA PORTB 

A25E 

60 

2470 

RTS 



2480 

n 

ft 



2490 

; ONHOOK 

A25F 

AD00D3 

2500 

JONHOOK LDA PORTB 

A262 

0940 

25 1 0 

ORA #$40 (P ' 

A264 

8D00D3 

2520 

STA PORTB 

A267 

60 

2530 

RTS 



2540 

; MSPEC1 

A26S 

AD00D3 

2550 

JliSA LDA PORTB 


PAGE 

1 1 



A26B 

0910 

2560 

ORA #$10 — (ft cftcp ( 

A26D 

SD00D3 

2570 

8 TA PORTB 

A270 

60 

2580 

RTS 



2590 

; MSPEC2 

A27 1 

AD00D3 

2600 

JliSB LDA PORTB 

A274 

29EF 

2610 

AND #$EF — / / / dft 

A276 

8D00D3 

2620 

STA PORTB 

A279 

60 

2630 

RTS 

A27A 

AB1 IDO 

2640 

2650 

; MSPEC3 ,| 

JMSC LDA $D011 

A27D 

60 

2660 

RTS 



2670 

m 

5 



0300 

. I NCLUDE #D : TERM . SRC 



10 ; 

SAVE #D2: TERM. SRC 



20 ; 




30 ; 




40 5 

VER 4.0 9/17/83 



50 ; 

VER 5.0 10/2/84 


A otct 

4L. / CL 


60 
70 
SO TERM 


A27E 

200 A A3 

A281 

D003 

A283 

4CDFAD 

A286 

209AA0 

A289 

D005 

A28B 

AD9604 

A28E 

DO 03 

A290 

4C15A3 

A293 

2094AA 

A296 

F 006 

A298 

8C6D05 

A29B 

20E7A7 

A29E 

AD6C05 

A2A 1 

F003 

A2A3 

4C24A3 


A2A6 

20A9A0 

A2A9 

F0D3 

A2AB 

20A9A0 

A2AE 

DOFB 

A 2 Bo 

20 AO AO 

A2B3 

A 9 00 

A2B5 

8513 

A2B7 

A513 

A2B9 

C908 

A2BB 

1 039 

A2BD 

200AA3 

A2C0 

D003 

A2C2 

4CDFAD 

A2C5 

209AA0 

A2C8 

FOED 

A2CA 

A90 1 

A2CC 

8D6C05 

A2CF 

A 9 00 

A2D 1 

8514 

A2D3 

A514 


90 LOOF'l JSR STKEY 

0 1 00 / BNE CLOOP 1 

0110 / JMP MENU ; START KEY 

0120 CLOOP 1 JSR MSTATS 

0130 BNE JLP2 ~ c Y&S 

0140 / LDA ANSFLG ' 

0150 / BNE YANSF > 

0160 JLP2 JMP LOOF‘2 
0170 YANSF JSR TESOF'T* 

O 1 80 BEQ NOOPT 1 

0190 / STY OPFLG 

0200 / JSR PXMES7 ; ’ SAVE ON-’ MES 

0210 NOOPT 1 LDA PHONE ;IS PHONE 

0220 —BEQ PHYES : ALREADY 

0230 / JMP L00P3 ; ANSWERED? 

0240/; MUST CHECK PHONE FOR 

0250 ; RETURN FROM MENU 

0260 * PHYES JSR MSPEC3 ;TF<IG1 


0270 

BEQ 

LOOP 1 ; 

NO RING 

0280 

NORING 

JSR MSPEC3 

0290 

BNE 

NORING 


0300 

JSR 

OFFHOOK 


03 1 0 

LDA 

#o 


0320 

STA 

$13 ; 

RTCLOC 

0330 

WCARR LDA $13 


0340 

CMP 

#8 ; 

30 SEC. 

0350 

BPL 

HANGUP 


0360 

JSR 

STKEY 


0370 

BNE 

NSTART 



0380 RTMENU JMP MENU 
0390 NSTART JSR MSTATS 
0400 BEQ WCARR 

04 1 0 LDA # 1 

0420 STA PHONE ; PHONE ANSWERED 

0430 LDA #0 

0440 STA $14 

0450 FORSEC LDA $14 


f 
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D 


A2D5 

C914 

0460 

CMP #20 

A2D7 

DOFA 

0470 

BNE FORSEC ; ONE SEC 



0480 

; WE NOW HAVE CARRIER DETECTED 

A2D9 

209 1 AO 

0490 

JSR CLOSE 

A2DC 

20SEA0 

0500 

JSR OPEN 

A2DF 

AD6D05 

05 1 0 

LDA OPFLG 

A2E2 

F040 

0520 

BEQ L00P3 ; SEND LOOP 

A2E4 

8D8B04 

0530 

ST A DUPLF ; MAKE HALF DUF'L 

A2E7 

200AA3 

0540 

KEYSNT JSR STKEY 

A2EA 

F0D6 

0550 

BEQ RTMENU 

A2EC 

A9FE 

0560 

LDA #$FE 

A2EE 

CDB604 

0570 

CMP INPBFF'T 

A2F1 

F0F4 

0580 

BEQ KEYSNT 

A2F3 

4C8EA3 

0590 

JMP NENDTE 

A2F6 

209DA0 

0600 

HANGUP JSR ONHOOK 

A2F9 

A 900 

06 1 0 

LDA #0 

A2FB 

8D6C05 

0620 

STA PHONE 

A2FE 

SDC802 

0630 

STA 712 

A 30 1 

8D9204 

0640 

STA LOADF 

A304 

8D9304 

0650 

STA SAVEF 

A 30 7 

4C7EA2 

0660 

JMP LOOP 1 

A 30 A 

A9F8 

0670 

STKEY LDA #*FS 

A30C 

8D1FD0 

0680 

STA CONSOL 

A 3 OF 

A901 

0690 

LDA #1 

A3 1 1 

2C1FD0 

0700 

BIT CONSOL 

A3 1 4 

60 

07 1 0 

RTS 



0720 

; RETURNS 0=PRESSED 1=N0T PRESSED 



0730 

; WAIT HERE FOR CARRIER 



0740 

; JUMP HERE IF NO AUTOANSWER 

A3 15 

20 AO AO 

0750 

L.OOF'2 JSR OFFHOOK 

A3 18 

2980 

0760 

/ AND #*80 ~ 

A3 1 A 

DO 08 

0770 

( BNE LOOF'3 

A3 1 C 

200AA3 

0780 ( 

NO ATI JSR STKEY 

A3 IF 

D0F4 

0790 

BNE LOOF'2 

A32 1 

4CDFAD 

0800 

JMP MENU 



08 1 0 

; ACTUAL SEND RECEIVE LOOP 

A3 2 4 

A 900 

0820 

LOOF'3 LDA #0 

A326 

854D 

0830 

STA *4D ; NO ATTRACT MODE 

A328 

209AA0 

0840 

JSR MSTATS, 

A32B 

DO 1 2 

0850 

BNE CAROHL 

A 3 2D 

A 900 

0860 

LDA #0 

A32F 

8514 

0870 

STA *14 

A3 3 1 

209AA0 

0880 

ONESEC JSR MSTATS 

A334 

D009 

0890 

BNE CAROK 

A336 

A514 

0900 

LDA $14 

A338 

C9S2 

09 1 0 

CMP #130 

A3 3 A 

DOFS 

0920 

BNE ONESEC 

A33C 

4CF6A2 

0930 

JMP HANGUP 

A33F 

A51 1 

0940 

CAROK LDA BRKKEY 

A34 1 

DO 1 B 

0950 

; ^ BNE N0BRK1 

A343 

8DFC02 

0960 

STA CH 

A346 

A 9 80 

0970 

LDA #$80 

A3 4 8 

851 1 

0980 

STA BRKKEY 

A34A 

20 A 3 AO 

0990 

JSR MSF'ECl — 

A34D 

/\ 

H y... u:'~ 

1 000 

LDX #35 

A34F 

A514 

1 0 1 0 

LP1 LDA 20 

A351 

C514 

1020 

LP2 CMP 20 

A 353 

FOFC 

1 030 

BEQ LF'2 


IS 
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A355 

CA 

1 040 

DEX 


A356 

D0F7 

1050 

BNE 

LPl 

A358 

20A6A0 

1060 

JSR 

MSPEC2 * 

A35B 

4C24A3 

1 070 

JMP 

L00P3 

A35E 

A9F8 

1080 

N0BRK1 1 

LDA #$F8 

A 360 

8D1FD0 

1 090 

STA 

CONSOL 

A363 

AD6105 

1 1 00 

LDA 

KEYTOG 

A366 

F 0 1 2 

1110 

BEQ 

TESTER 

A363 

A 90 4 

1 1 20 

LDA 

#4 

A36A 

2D1FD0 

1130 

AND 

CONSOL 

A36D 

D003 

1 1 40 

BNE 

ENDTE1 

A36F 

4CDAA3 

1 1 50 

JMP 

ENDTEST 

A372 

A 900 

1160 

ENDTE1 1 

LDA #0 

A374 

8D6105 

1 1 70 

STA 

KEYTOG 

A377 

4CDAA3 

1 1 80 

JMP 

ENDTEST 

A3 7 A 

A90 1 

1 1 90 

TESTER LDA #1 

A37C 

2C1FD0 

1 200 

BIT 

CONSOL 

A37F 

D003 

1210 

BNE 

NOSTART 

A381 

4CDFAD 

1220 

JMP 

MENU 

A384 

A904 

1 230 

NOSTART 

LDA #4 

A336 

2C1FD0 

1240 

BIT 

CONSOL 

A389 

F 003 

1 250 

BEQ 

NENDTE 

A38B 

4CDAA3 

1 260 

JMP 

ENDTEST 



1270 

; HERE 


A38E 

ADC802 

1 280 

NENDTE LDA 712 

A3 9 1 

FOOB 

1290 

BEQ 

GREEN 

A393 

A 900 

1 300 

LDA 

#0 

A3 95 

8DC802 

1310 

STA 

712 

A398 

200 1 A8 

1 320 

JSR 

PX MESS 

A39B 

4CABA3 

1 330 

JMP 

C0N76 

A39E 

A9B4 

1 o4U 

GREEN LDA #180 

A3 AO 

8DC802 

1 350 

STA 

712 

A 3 A3 

A 08 90 4 

1 360 

LDA 

BINF 

A3 A 6 

0003 

1 370 

BNE 

C0N76 

A3A8 

20E7A7 

T380 

JSR 

PXMES7 

A3AB 

A90 1 

1390 

C0N76 LDA #1 

A3AD 

806105 

1 400 

STA 

KEYTOG 

A 3 BO 

AD8004 

1410 

LDA 

SAVMOD 

A3B3 

FO 1 5 

1420 

BEQ 

NOSAVM 

A3B5 

A09304 

1430 

LDA 

SAVEF 

A3B8 

490 1 

1440 

EOR 

#1 

A3BA 

809304 

1450 

STA 

SAVEF 

A3BD 

ADS204 

1 460 

LDA 

BOTBUF 

A3 CO 

8502 

1470 

STA 

SENPTR 

A3C2 

AD8304 

1 480 

LDA 

BOTBUF+l 

A3C5 

8503 

1490 

STA 

SENPTR+ 1 

A3C7 

4C02A3 

1 500 

JMP 

ENDOPT 

A3CA 

AD9204 

1510 

NOSAVM LDA LOADF 

A3CD 

4901 

1520 

EOR 

#1 

A3CF 

809204 

1 530 

STA 

LOADF 

A3D2 

A08904 

1540 

ENDOPT LDA BINF 

A3D5 

F 003 

1550 

BEQ 

ENDTEST 

A3D7 

4 C O 4 A to 

1 560 

JMP 

XMODEM 

A3DA 

A0FC02 

1570 

ENDTEST 

LDA CH 

A3DD 

C9FF 

1 580 

CMP 

#$FF 

A3DF 

F029 

1590 

BEQ 

NOKEY 

A3E 1 

2002BD 

1 600 

JSR 

GETKEY 

A3E4 

207EA5 

1610 

JSR 

OtJTCON 
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A3E7 

48 

1620 

PHA 


A3ES 

2097 AO 

1 630 

J SR 

WRITE 

A3EB 

AD8B04 

1640 

LDA 

DUPLF 

A3EE 

F 0 1 9 

1 650 

BEQ 

DUPHLF 

A3F0 

68 

1 660 

PLA 


A3F 1 

209CA5 

1670 

JSR 

INCONV 

A3F4 

43 

1680 

PHA 


A3F5 

A240 

1690 

LDX 

#$40 

A3F7 

A 900 

1 700 

LDA 

#0 

A3F9 

9D4803 

1710 

STA 

ICBLL, X 

A3FC 

9D4903 

1720 

STA 

ICBLH, X 

A3FF 

A90B 

1730 

LDA 

#$0B 

A401 

9D4203 

1740 

STA 

ICCOM, X 

A404 

68 

1750 

PLA 


A405 

48 

1760 

PHA 


A 4 O 6 

2056E4 

1770 

JSR 

CIOV 


A409 68 1780 DUPHLF F'LA 

A40A A9FE 1790 NOKEY LDA #$FE ; INPUT BUF 

1800 ; POINTER FROM MODEM DRIVER 


A40C 

CDB604 

1810 

CMP 

INPBFPT 

A40F 

DO 1 A 

1820 

BNE 

I NCH 

A41 1 

AD 9 304 

1 830 

LDA 

SAVEF 

A414 

F 0 1 2 

1840 

BEQ 

NOGO 

A416 

200CA5 

1 850 

JSR 

NO I NCH 

A419 

1 00 A 

1860 

BPL 

SENOUT 

A41B 

48 

1 870 

PHA 


A41C 

200 1 A8 

1 380 

JSR 

PXMES8 

A 4 1 F 

68 

1390 

PLA 


A420 

AC9004 

1 900 

LDY 

DISKF 

A 4 23 

F003 

1910 

BEQ 

NOGO 

A425 

20CAA5 

1 920 

SENOUT JSR OUTDO 1 

A428 

4C24A3 

1 930 

N060 JMP L00P3 

A42B 

2094A0 

1940 

INCH JSR READ 

A42E 

C001 

1950 

CPY 

#1 

A430 

FOOB 

1960 

BEQ 

NERKOS 

A432 

AD6005 

1970 

LDA 

ERFL 

A435 

F003 

1980 

BEQ 

GOERR 

A437 

A A & T 

1 990 

JMP 

LOOF‘3 

A43A 

20ECB0 

2000 

GOERR JSR DERROR 

A 4 3D 

8D6A05 

20 1 0 

NERKOS ! 

BTA LASTCH 

A 440 

209CA5 

2020 

JSR 

INCONV 

A44o 

48 

2030 

PHA 


A 44 4 

A 240 

2040 

LDX 

#$40 

A 4 4 6 

A 900 

2050 

LDA 

#0 

A448 

8D6005 

2060 

STA 

ERFL 

A44B 

9D4803 

2070 

STA 

ICBLL, X 

A44E 

9D4903 

2080 

STA 

ICBLH, X 

A45 1 

A90B 

2090 

LDA 

#$0B 

A 4 53 

9D4203 

2 1 00 

STA 

ICCOM, X 

A456 

68 

2110 

PLA 


A457 

48 

2 1 20 

PHA 


A458 

2056E4 

2 1 30 

JSR 

CIOV 

A45B 

AD9204 

2 1 40 

LDA 

LOADF 

A45E 

F 006 

2150 

BEQ 

GTERM 

A 4 60 

206AA4 

2160 

JSR 

KEEPER 

A 4 6 3 

4C24A3 

2170 

JMP 

L00P3 

A466 

68 

2 1 80 

GTERM PLA 

A467 

4C24A3 

2 1 90 

JMP 

LOOP 3 
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2200 

B 

1 





2210 

THIS ROUTINE STORES THE CHAR 



o 

4m. 4m. 4m. V 

ON THE 

TOP OF THE 

STACK IN 



2230 

MEM OR 

TO DISK OR 

PRINTER. 



2240 




A46A 

68 

2250 [ 

DEEPER 

PLA 


A46B 

AA 

2260 

TAX 



A46C 

68 

2270 

PLA 



A46D 

A8 

2280 

TAV 



A46E 

68 

2290 

PLA 



A46F 

8D5B05 

2300 

STA 

XTEMP 


A472 

98 

23 1 0 

TYA 



A473 

48 

2320 

PHA 



A474 

SA 

2330 

TXA 



A475 

48 

2340 

PHA 



A476 

AD5B05 

2350 

LDA 

XTEMP 


A479 

48 

2360 

PHA 



A47A 

AD 9004 

2370 

LDA 

DISKF 


A47D 

0D9504 

2380 

ORA 

DPRFLG 


A 4 80 

F022 

2390 

BEQ 

SAVTOBF 


A482 

A 230 

2400 

LDX 

#$30 


A484 

A 9 00 

24 1 0 

LDA 

#0 


A 486 

9D4803 

2420 

STA 

I CELL, X 


A489 

9D4903 

2430 

STA 

ICBLH, X 


A48C 

A90B 

2440 

LDA 

#$0B 


A48E 

9D4203 

2450 

STA 

ICCOM, X 


A49 1 

68 

2460 

PLA 



A492 

2056E4 

2470 

JSR 

CIOV 


A495 

300 1 

2480 

BMI 

DSKERR 


A497 

60 

2490 

RTS 



A 4 98 

20ECB0 

2500 DSKERR JSR DERROR 


A49B 

A900 

2510 MCPERR LDA #0 


A49D 

8D9204 

'“1 KT '**1 

xLZiZ O 

STA 

LOADF 


A 4 A O 

8DCS02 

uJ •-.* * 

STA 

712 


A4A3 

60 

2540 

RTS 



A4A4 

A 000 

2550 SAVTOBF 

LDY #0 


A4A6 

AD9404 

2560 

LDA 

FULLF 


A4A9 

F 004 

2570 

BEQ 

NAFULL 


A4AB 

68 

2580 

PLA 



A4AC 

4C9BA4 

2590 

JMP 

MCPERR 


A4AF 

68 

2600 NAFULL PLA 


A 4 BO 

9 1 CC 

26 1 0 

STA 

(BUFPTR) , Y 


A4B2 

E6CC 

2620 

INC 

BUFPTR 


A4B4 

DO 02 

2630 

BNE 

NOZIP 


A4B6 

E6CD 

2640 

INC 

BUFPTR+i 


A4B8 

A5CC 

2650 NOZIP LDA BUFPTR 


A4BA 

8DS604 

266 U 

STA 

MAX TOP 


A4BD 

A5CD 

2670 

LDA 

BUFPTR+1 


A4BF 

8D8704 

2680 

STA 

MAXTOP-+* 1 


A4C2 

AD8504 

2690 

LDA 

BUFMAX+1 


A4C5 

C5CD 

2700 

CMP 

BUFPTR-t-1 


A4C7 

BO 4 2 

27 1 0 

BCS 

NOBERR 


A4C9 

A944 

2720 

LDA 

#68 


A4CB 

8DC802 

2730 

STA 

712 ; BUFF FULL 

A4CE 

A 9 00 

2740 

LDA 

#0 


A4D0 

8D1FD0 

2750 

STA 

CONSOL 


A4D3 

A5CD 

2760 

LDA 

BUFPTR •+• 1 


A4D5 

CDS 104 

2770 

CMP 

TOPBUF+1 
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A4D8 

DO 3 1 

2780 

A4DA 

A5CC 

2790 

A4DC 

CD8004 

2800 

A4DF 

D02A 

28 1 0 

A4E 1 

C6CC 

2820 

A4E3 

D002 

2830 

A4E5 

C6CD 

2840 

A4E7 

A 2 4 O 

2850 

A4E9 

A90B 

2860 

A4EB 

9D4203 

2870 

A4EE 

A 9 00 

2880 

A4F0 

9D4803 

2890 

A4F3 

9D4903 

2900 

A4F6 

A9FD 

29 1 0 

A4F8 

2056 E 4 

2920 

A4FB 

A 9 00 

2930 

A4FD 

8D9204 

2940 

A 5 00 

8D9304 

2950 

A503 

8DC802 

2960 

A506 

A90 1 

2970 

A 508 

8D9404 

2980 

A50B 

60 

2990 

A50C 

AD9004 

3000 

A50F 

D04 1 

30 1 0 

A51 1 

A 000 

3020 

A51 3 

B1D2 

3030 

A5 1 5 

48 

3040 

A516 

A5CC 

3050 

A518 

38 

3060 

A519 

E5D2 

3070 

A51B 

DO 1C 

3080 

A51D 

A5D3 

3090 

A51F 

C5CD 

3 1 00 

A521 

DO 1 6 

3110 

A523 

A 900 

3 1 20 

A525 

SD9304 

3 1 30 

A528 

SDC802 

3140 

A52B 

AD8204 

3150 

A52E 

85D2 

3 1 60 

A530 

AD8304 

3 1 70 

A533 

85D3 

3 1 80 

A535 

68 

3 1 90 

A536 

AOSO 

3200 

A538 

60 

32 1 0 

A539 

E6D2 

3220 

A53B 

D002 

3230 

A53D 

E6D3 

3240 

A53F 

68 

3250 

A540 

AOO 1 

3260 

A542 

60 

3270 

A543 

A 9 00 

3280 

A545 

8D9304 

3290 

A548 

8DC802 

3300 

A54B 

200 CAB 

33 1 0 

A54E 

68 

3320 

A54F 

AOSO 

3330 

A55 1 

60 

3340 

A552 

A230 

3350 


BNE 

NOBERR 

LDA 

BUFPTR 

CMP 

TOPBUF 

BNE 

NOBERR 

DEC 

BUFPTR 

BNE 

NOTZE 

DEC 

BUFPTR+ 

NOTZE LDX #$40 

LDA 

#$0B 

STA 

ICCOM, X 

LDA 

#0 

STA 

ICBLL, X 

STA 

ICBLH, X 

LDA 

#$FD 

JSR 

CIOV 

LDA 

#0 

STA 

LOADF 

STA 

SAVEF 

STA 

712 

LDA 

#1 

STA 

FULLF 


NOBERR RTS 
NO INCH LDA DISKF 


BNE RDISK 
LDY #0 

LDA (SENPTR) , Y 
PHA 

LDA BUFPTR 

fn r** /n 

btl 

SBC SENPTR 
BNE NOSFUL 
CONTI 2 LDA SENPTR+1 
CMP BUFPTR+1 
BNE NOSFUL 
LDA #0 
STA SAVEF 
STA 712 
LDA BOTBUF 
STA SENPTR 
LDA BOTBUF+1 
STA SENPTR+1 
PLA 

LDY #$80 ; EOF 

RTS 

NOSFUL INC SENPTR 
BNE RET0K2 
INC SENPTR+1 
RET0K2 PLA 
LDY #1 
RTS 

RETER2 LDA #0 
STA SAVEF 
STA 712 
JSR DSKFIX 
PLA 

LDY #$80 
RTS 

RDISK LDX #$30 
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A554 

A 90 7 

3360 

LDA #$07 

A556 

9D4203 

3370 

ST A ICCOM, X 

A559 

A 9 00 

3380 

LDA #0 

A5SB 

3D6705 

3390 

STA DERFLG 

A55E 

9D4803 

3400 

ST A I CELL, X 

A561 

9D4903 

3410 

STA ICBLH.X 

A564 

2056E4 

3420 

J SR CIOV 

A567 

48 

3430 

PHA 

A568 

COO 3 

3440 

CPY #3 ; IS THIS LAST 

A56A 

F0D7 

3450 

BEQ RETER2 ; BYTE DF FILE 

A56C 

98 

3460 

TYA ; SET FLAGS 

A56D 

1 00 B 

3470 

BPL NERR4 

A56F 

20ECB0 

3480 

NOEOF JSR DERROR 

A572 

A90 1 

3490 

LDA #1 

A574 

8D6705 

3500 

STA DERFLG 

A577 

4C43A5 

35 1 0 

JHP RETER2 

A57A 

68 

3520 

NERR4 PLA 

A57B 

A 00 1 

3530 

LDY #1 

A57D 

60 

3540 

RTS 



3550 

m 

n 



3560 

5 CONVERT OUTGOING CHARACTOR 



3570 

• 

A57E 

AES804 

3580 

OUTCON LDX TRANF 

A581 

DO 18 

3590 

BNE NBSP 

A583 

C99B 

3600 

CMP #155 

A585 

D002 

36 1 0 

BNE NCR 

A587 

A90D 

3620 

LDA #13 

A589 

C97D 

3630 

NCR CMP #$7D 

A58B 

D002 

3640 

BNE NCLR 

A58D 

A90C 

3650 

LDA #12 

A58F 

C9FD 

3660 

NCLR CMP #$FD 

A591 

D002 

3670 

BNE NBEL 

A593 

A907 

3680 

LDA #7 

A595 

C97E 

3690 

NBEL CMP #$7E 

A597 

DO 02 

3700 

BNE NBSP 

A599 

A 908 

3710 

LDA #8 

A59B 

60 

3720 

NBSP RTS 



3730 

B 

n 



3740 

i CONVERT INCOMING CHARACTOR 



3750 

II 

ft 

A59C 

AES AO 4 

3760 

INCONV LDX BIT8F 

A59F 

D002 

3770 

BNE BITS 

A5Ai 

297F 

3780 

AND #$7F 

A5A3 

AE8804 

3790 

BIT8 LDX TRANF 

A5A6 

DO 2 1 

3800 

BNE NOTRAN 

A5A8 

C90D 

38 1 0 

CMP #13 

A5AA 

DO 02 

3820 

BNE NOCR 

A5AC 

A99B 

3830 

LDA #155 

A5AE 

C907 

3840 

NOCR CMP #7 

A 5 BO 

D002 

3850 

BNE NOBEL 

A5B2 

A9FD 

3860 

LDA #*FD 

A5B4 

C908 

3870 

NOBEL CMP #8 

A5B6 

DO 02 

3880 

BNE NOBSP 

A5B8 

A97E 

3890 

LDA #$7E 

A5BA 

C90C 

3900 

NOBSP CMP #12 

A5BC 

D002 

39 1 0 

BNE NOCLR 

A5BE 

A97D 

3920 

LDA #$7D 

A SCO 

C920 

3930 

NOCLR CMP #32 
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A5C2 

A5C4 

A5C5 

A5C6 

A5C9 


A5CA 

A5CB 

A5CC 

A5CD 

A5CE 

A5D1 

A5D4 

A5D7 

A5D9 

A5DB 

A5DD 

A5DF 

A5E1 

A5E3 

A5E6 

A5E8 

A5E9 

A5EB 

A5EE 

A5F0 

A5F2 

A5F5 

A5F7 

A5FA 

A5FD 

A5FE 

A5FF 

A602 

A 60 3 


A604 
A606 
A609 
A60B 
A60E 
A6 1 0 
A 6 1 3 
A 6 1 6 > 
A618 


jQ **♦« IMH (M* •_ • MM MM 


BOO 5 

3940 



DCS 

NQTRAN 



68 

3950 



PLA 




68 

3960 



PLA 




4C24A3 

3970 



JMP 

L00P3 



60 

3980 

NQTRAN 

RTS 




3990 


M 

n 






4000 


; SEND CHAR I N A 

TO MODEM AND 


40 1 0 


; SCREEN 

WITH DUAL CONVERSION 


4020 


tt 

* 





48 

4030 

OUTDO 1 F'HA 



48 

4040 



PHA 




18 

4050 



CLC 




68 

4060 



PLA 




207EA5 

4070 



JSR 

OUTCON 



2097 AO 

4080 



JSR 

WRITE 

; SEND 

BUF CHAR 

AESB04 

4090 



LDX 

DUPLF 

; TO MODEM 

DO 1 5 

4 1 00 



BNE 

ECHO 



A9FE 

411 0 



LDA 

#$FE 



A21E 

4120 



LDX 

#30 

; WAIT 

1/2 SEC 

A414 

4 1 30 

WAITL LDY 20 

; FOR CHAR 

C414 

4 1 40 

WAITS CPY 20 



FOFC 

4 1 50 



BEQ 

WAITS 



CDB604 

4 1 60 



CMP 

INPBFPT 



D003 

4 1 70 



BNE 

ECHOD 



CA 

4 1 80 



DEX 




DOF 2 

4 1 90 



BNE 

WA I TL 



4C02A6 

4200 

ECH0D JMP NECH0 



A 2 40 

4210 

ECHO LDX #$40 



A90B 

4220 



LDA 

#*0B 



9D4203 

4230 



STA 

ICCOM, X 



A 900 

4240 



LDA 

#0 



9D4803 

4250 



STA 

ICE’LL „ X 



9D4903 

4260 



BTA 

ICBLH, X 



68 

4270 



PLA 




48 

4280 



PHA 




2056E4 

4290 



JSR 

CIOV 



68 

4300 

NECHO PLA 



60 

4310 



RTS 





4320 








4330 


THIS ROUTINE PERFORMS 

A FILE 


4340 


TRANFER USING XMODEM 

PROTOCOL 


4350 


IT 

USES LOADF AND SAVEF 


4360 








4370 







f-’i 

i > 

O 

!-*• 

4380 

BOH 

= 

1 



0004 

4390 

EOT 

ss; 

4 



0006 

4400 

ACK 

MM* 

6 



00 1 5 

4410 

NAK 

= 

21 



00 1 8 

4420 

CAN 

M«*> 

24 



A 9 00 

4430 

XMODEM LDA #0 



8D6B05 

444 Q 



STA 

GOTREC 



A5CC 

4450 



LDA 

BUFPTR 



8D6505 

4460 



STA 

BFF'TS 



A5CD 

4470 



LDA 

BUFPTRh-1 



SD6605 

4480 



STA 

BFPTS+1 



AD9204 

4490 



LDA 

LOADF 



F003 

4500 



BEQ 

X MSA VE 



4C4FA8 

4510 



JMP 

XMLOAD 




as 
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A61B 

2035AS 

4520 

XMSAVE JSR PXMES6 


A61E 

A 9 02 

4530 

LDA #2 


A620 

8D6405 

4540 

ST A XBLKNUM 


A623 

A 900 

4550 

LDA #0 


A625 

8D6705 

4560 

STA DERFLG 


A628 

8D6305 

4570 

STA LASTREC 


A62B 

2004A7 

4580 

JSR GREC 


A62E 

D003 

4590 

BNE XSNLP 


A 6 30 

4C99A6 

4600 

JMP WHAP 


A 6 33 

AD6A05 

4610 

XSNLP LDA LASTCH 


A636 

C915 

4620 

CMP #NAK 


A63S 

F047 

4630 

BEQ RETRY 1 


A63A 

A90A 

4640 

SENREC LDA #10 


A63C 

8D6205 

4650 

STA XBYTE 


A63F 

204BAA 

4660 

CONI JSR GXCHAR 


A642 

i 008 

4670 

BPL NT I ME 


A644 

CE6205 

4680 

DEC XBYTE 


A647 

DOF £> 

4690 

BNE CONI 


A649 

4C81A6 

4700 

JMP RETRY 1 


A64C 

D003 

4710 

NT I ME BNE NOQUT 


A64E 

4C6BA9 

4720 

JMP OPSTOP 


A651 

A2FE 

4730 

NOQUT LDX #$FE 


A653 

ECB604 

4740 

CPX INPBFPT 


A656 

D0E2 

4750 

BNE SENREC 


A658 

CD5E05 

4760 

CMP CHKSUM 


A65B 

DO i 2 

4770 

BNE NOEKCH ; D I D THE 

REMOTE 

A65D 

A 008 

4780 

LDY #8 ; ECHO THE 

CHKSUM 

A65F 

8D6205 

4790 

STA XBYTE 


A662 

204BAA 

4800 

NOTAGN JSR GXCHAR 


A665 

1 008 

48 1 0 

BPL NOEKCH 


A667 

CE6205 

4820 

DEC XBYTE ;WAIT FOR 

THE 

A66A 

DOF 6 

4830 

BNE NOTAGN ; REAL ACK 

OR NAK 

A66C 

AD5E05 

4840 

LDA CHKSUM ; FREAK CON I NDNCE 

A66F 

C906 

4850 

NOEKCH CMP #ACK : CHKSUM=ACK 

A67 1 

F 0 1 4 

4860 

BEQ REMRDY 


A673 

C915 

4870 

CMP #NAK 


A675 

F 00 A 

4880 

BEQ RETRY 1 


A677 

C918 

4890 

CMP #CAN 


A679 

DO 03 

4900 

BNE NOTCAIM 


A67B 

4CE4A9 

4910 

JMP REMABORT 


A67E 

4C3AA6 

4920 

NOTCAN JMP SENREC 


A681 

CE6405 

4930 

RETRY 1 DEC XBLKNUM 


A684 

4CA4A6 

4940 

JMP CONGO 


A687 

AD6705 

4950 

REMRDY LDA DERFLG 


A 68 A 

F008 

4960 

BEQ SEOT 


A68C 

A 9 00 

4970 

LDA #0 


A68E 

8D6705 

4980 

STA DERFLG 


A691 

4C6BA9 

4990 

JMP OPSTOP 


A694 

2004A7 

5000 

SEOT JSR GREC 


A697 

DOOB 

50 1 0 

BNE CONGO ; GOT DATA 

TO SND 

A699 

A 90 4 

5020 

WHAP LDA #EOT 


A69B 

2097 AO 

5030 

JSR WRITE 


A69E 

2000 A A 

5040 

JSR EOTMES 


A6A 1 

4CBCAA 

5050 

JMP XMEXIT 


A6A4 

A 901 

5060 

CONGO LDA #SOH 


A6A6 

2097 AO 

5070 

JSR WRITE 


A6A9 

AD6405 

5080 

LDA XBLKNUM 


A6AC 

2097 AO 

5090 

JSR WRITE 
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A6AF 

AD6405 

5 1 00 

LDA 

XBLKNUM 

A6B2 

49FF 

5110 

EOR 

#$FF 

A6B4 

2097 AO 

5 1 20 

JSR 

WRITE 

A6B7 

AD6405 

5130 

LDA 

XBLKNUM 

A6BA 

20CFAA 

5 1 40 

JSR 

PBLKNUM 

A6BD 

A 900 

5150 

LDA 

#0 

A6BF 

8D5E05 

5160 

STA 

CHKSUM 

A6C2 

A 980 

5170 

LDA 

#128 

A6C4 

8D6205 

5 1 80 

STA 

XBYTE 

A6C7 

AC6205 

5 1 90 

XSENLP LDY XBYTE 

A6CA 

B9D904 

5200 

LDA 

XMBUFF, Y 

A6CD 

"48 

5210 

PHA 


A6CE 

18 

5220 

CLC 


A6CF 

6D5E05 

5230 

ADC 

CHKSUM 

A6D2 

SD5E05 

5240 

STA 

CHKSUM 

A6D5 

68 

5250 

PLA 


A6D6 

2097 AO 

5260 

JSR 

WR I TE 

A6D9 

2094AA 

5270 

JSR 

TESOPT 

A6DC 

F 005 

5280 

BEG 

NOOPT 

A6DE 

A90 1 

5290 

LDA 

#1 

A6E0 

8D6705 

5300 

STA 

DERFLG 

A6E3 

CE6205 

53 1 0 

NQOPT DEC XBYTE 

A6E6 

DODF 

5320 

BNE 

XSENLP 

A6E8 

AD5E05 

5330 

LDA 

CHKSUM 

A6EB 

209 7 AO 

5340 

JSR 

WRITE 

A 6EE 

EE6405 

5350 

INC 

XBLKNUM 

A6F 1 

D003 

5360 

BNE 

BUGG2 

A6F3 

EE6405 

5370 

INC 

XBLKNUM 

A6F6 

A O 0 A 

5380 

BUGG2 LDY #10 

A6F8 

A514 

5390 

LUP LDA 

20 

A6FA 

C514 

5400 

LUPNOW CMP 20 

A6FC 

FOFC 

54 1 0 

BEG 

LUPNOW 

A6FE 

88 

5420 

DEY 


A6FF 

DOF 7 

5430 

BNE 

LUP 

A701 

4C3AA6 

5440 

JMP 

SENREC 


AD6305 
F 003 
AO 00 
60 

A980 

8D6205 

200CA5 

08 

AC6205 

99D904 

28 

1025 
AD9004 
DO 08 
C8 

C08 1 
D003 


5450 
5460 
5470 
5480 
5490 
5500 
55 1 0 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 


; GET A RECORD FROM DISK OR 
; MEMORY AND PUT IT IN THE XMBUFF 
; AND PAD THE 
5 SET ’ Y ? TO 
; 1 IF RECORD IN BUFF 

5 O EOF 

GREC LDA LASTREC 
BEG STOK 
LDY #0 
RTS 

STOK LDA #128 
STA XBYTE 
ST0K2 J SR NO INCH 
PHP 

LDY XBYTE 
STA XMBUFF, Y 
PLP 


BPL MOCHR 
LDA DISKF 
BNE DONT 
I NY 

CRY #129 
BNE DONT 


FIX IT LAST CHAR FROM MEM IS NOT GOOD 


; IS THE LAST CHAR THE START OF A NEW REC 
5 WERE OK 
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A728 A 000 
A72A 60 
A72B 88 
A72C F00F 
A72E 8C6205 
A 73 1 A980 
A733 38 
A734 ED6205 
A737 99D904 
A73A 88 
A73B DOFA 
A73D A 001 
A73F 8C6305 
A742 60 
A743 CE6205 
A746 D0C9 
A748 A 00 1 
A74A 60 
A74B 9B53544 1 
A74F 5254494E 
A753 4720584D 
A757 4F44454D 
A75B 20444F57 
A75F 4E4C4F4 1 
A763 44 
A764 9B9B3E3E 
A768 54524 14E 
A76C 53464552 
A770 494E4720 
A774 424C4F43 
A778 4B2320 
A77B 9B454E44 
A77F 204F4620 
A7S3 584D4F44 
A787 454D2054 
A78B 52414E53 
A78F 464552FD 
A793 9B 
A794 9B464154 


A798 4 1 4C2045 
A79C 52524F52 
A7A0 2D20584D 
A7A4 4F44454D 
A7AS 20545241 
A7AC 4E534645 
A7B0 52204142 
A7B4 4F525445 
A7B8 44FD9B 
A7BB 9B53544 1 
A7BF 5254494E 
A7C3 47205S4D 
A7C7 4F44454D 
A7CB 2055504 C 
A7CF 4F4144 
A7D2 9B534156 
A7D6 45204F4E 


5680 ; TH I 8 IS A BAD REC SO RETURN 

5690 LDY #0 

5700 RTS 

5710 DONT DEY 

5720 BEQ RTFOL 

5730 STY XBYTE 

5740 LDA #128 

5750 SEC 

5760 SBC XBYTE 

5770 PADLOP STA XMBUFF, Y 

5780 DEY 

5790 BNE PADLOP 

5800 RTFOL LDY #1 

5810 STY L.ASTREC 

5820 RTS 

5830 MOCHR DEC XBYTE 

5840 BNE ST0K2 

5850 LDY #1 

5860 RTS 

5870 XMES1 .BYTE 155, "STARTING XMODEM DOWNLOAD" 



5910 XMES6 .BYTE 155, "STARTING XMODEM UPLOAD" 


5920 XMES7 .BYTE 155, "SAVE 0N",$FD,155 
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A7DA 

FD9B 




A7DC 

9B534156 

5930 

XMES8 . 

BYTE 155, "SAVE 0FF",$FD,1 

A7E0 

45204F46 




A7E4 

46FD9B 




A7E7 


5940 

XMES9 


A7E7 

A240 

5950 

PXMES7 

LDX #$40 

A7E9 

A9D2 

5960 

LDA 

# < XMES7 

A7EB 

9D4403 

5970 

STA 

I CBAL , X 

A7EE 

A9A7 

5980 

LDA 

# >XMES7 

A7F0 

9D4503 

5990 

STA 

ICBAH, X 

A7F3 

A90B 

6000 

LDA 

#$0B 

A7F5 

9D4203 

60 1 0 

STA 

ICCOM, X 

A7FS 

A 90 A 

6020 

LDA 

#C XMES8— XMES7 3 

A7FA 

9D4803 

6030 

STA 

I CELL, X 

A7FD 

2056E4 

6040 

JSR 

CIOV 

A 8 00 

60 

6050 

RTS 


A 80 1 

A240 

6060 

PXMES8 1 

LDX #$40 

A 80 3 

A9DC 

6070 

LDA 

# < XMES'8 

A805 

9D4403 

6080 

STA 

I CBAL, X 

A808 

A9A7 

6090 

LDA 

# >XMES8 

A80A 

9D4503 

6 1 00 

STA 

ICBAH, X 

A SOD 

A90B 

611 0 

LD A 

#$0B 

A 8 OF 

9D4203 

6120 

STA 

ICCOM, X 

A812 

A90B 

6130 

LDA 

#C XMES9— XMES8D 

A814 

9D4803 

6 1 40 

STA 

I CELL , X 

A8I7 

2056E4 

6 1 50 

JSR 

CIOV 

ASIA 

60 

6 1 60 

RTS 


AS IB 

A 2 40 

6170 

PXMESl LDX #$40 : PRINT XMES1 

AS 1 D 

A94B 

6180 

LDA 

# < XMES 1 

AS IF 

9D4403 

6190 

STA 

I CBAL, X 

A822 

A9A7 

6200 

LDA 

# >XMES 1 

A824 

9D4503 

6210 

STA 

ICBAH, X 

A827 

A90B 

6220 

LDA 

#*0B 

A829 

9D4203 

6230 

STA 

ICCOM, X 

AS2C 

A919 

6240 

LDA 

#CXMES3~XMES1 3 

A82E 

9D4803 

6250 

STA 

I CELL, X 

AS3 1 

2056E4 

6260 

JSR 

CIOV 

A834 

60 

6270 

RTS 


A835 

A 240 

6280 

PXMES6 LDX #$40 

A837 

A9BB 

6290 

LDA 

# < XMES 6 

A839 

9D4403 

6300 

STA 

I CBAL, X 

A83C 

A9A7 

6310 

LDA 

# > XMES 6 

AS3E 

9D4503 

6320 

STA 

ICBAH, X 

A841 

A90B 

633 O 

LDA 

#$0B 

AS43 

9D4203 

6340 

STA 

ICCOM, X 

A846 

A917 

6350 

LDA 

#C XMES7— XMES6 1 

AS48 

9D4803 

6360 

STA 

I CELL, X 

A84B 

2056E4 

6370 

JSR 

CIOV 

A84E 

60 

6380 

RTS 


A84F 

201 BAS 

6390 

XMLOAD JSR PXMESl 

A852 

A90 1 

6400 

LDA 

#1 

AS54 

8D6405 

6410 

STA 

XBLKNUM 

A857 

A915 

6420 

X RETRY LDA #NAK ; START THE DLOAD 

A859 

2097 AO 

6430 

JSR 

WRITE 

AS5C 

A 90 A 

6440 

GETREC LDA #10 

AS5E 

SD5E05 

6450 

STA 

CHKSUM 

A861 

204BAA 

6460 

GETRTY JSR GXCHAR 

A864 

1 008 

6470 

BPL 

MXTOK 
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AS66 

CE5E05 

6480 

DEC CHKSUM 

A869 

DOF 6 

6490 

BNE GETRTY 

A86B 

4C57A8 

6500 

JMP X RETRY 

A86E 

DO 03 

65 1 0 

NXTOK BNE NOPST ; OPERATOR ABORT 

A870 

4C6BA9 

6520 

JMP OPSTOP 

A873 

C901 

6530 

NOPST CMP #SOH 

A875 

F029 

6540 

BEQ GSOH 

AS 7 7 

C904 

6550 

CMP #EOT 

A879 

DOOB 

6560 

BNE NREMSTO 

A87B 

AD6B05 

6570 

LDA GOTREC 

AS7E 

F 003 

6580 

BEQ N0REC3 

AS 80 

2096A9 

6590 

J SR SAVPREC 

A883 

4CDEA9 

6600 

N0REC3 JMP REMSTOP 

A886 

C918 

66 1 0 

NREMSTO CMP #CAN 

A888 

D003 

6620 

BNE X8ADSH 

A88A 

4CE4A9 

6630 

JMP REM ABORT 

A88D 

C91S 

6640 

XBADSH CMP #NAK ; SEE IF THE BASTARD ECHOED MY ACK OR NAK 

A88F 

FODO 

6650 

BEQ GETRTY 

A89 1 

C906 

6660 

CMP #ACK 

A893 

FOCC 

6670 

BEQ GETRTY 

AS95 

20 1 AAA 

6680 

JSR XIGREC 

A898 

D003 

6690 

BNE N0ST2 

AS9A 

4C6BA9 

6700 

JMP OPSTOP 

A89D 

4CS7A8 

6710 

N0ST2 JMP X RETRY 

A 8 AO 

AD6B05 

6720 

GSOH LDA GOTREC 

A8A3 

F003 

6730 

BEQ NY 

ABAS 

205 1A9 

6740 

JSR SAVREC 

A8A8 

204BAA 

6750 

NY JSR GXCHAR 

A8AB 

30 A A 

6760 

BMI X RETRY 

ASAD 

DO 03 

6770 

BNE NOPSTOP 

ASAF 

4C6BA9 

6780 

JMP OPSTOP 

A8B2 

49FF 

6790 

NOPSTOP EOR #$FF ; IS THE BLOCK # 

A8B4 

SD5D05 

6800 

STA XTEMP2 ; THE SAME AS 

A8B7 

204BAA 

68 1 0 

JSR GXCHAR 

ASBA 

•_> -J 7 O 

6820 

BMI X RETRY ; ITS COMP 

A8BC 

DO 03 

6830 

BNE N0PST2 

A8BE 

4C6BA9 

6840 

JMP OPSTOP 

ASCI 

CD5D05 

6850 

N0PST2 CMP XTEMF‘2 

ASC4 

FOOB 

6860 

BEQ BLKNUM 

A8C6 

201 AAA 

6870 

JSR XIGREC 

A8C9 

D003 

6880 

BNE X I GOP 3 

A8CB 

4C6BA9 

6890 

JMP OPSTOP 

A8CE 

4C57A8 

6900 

X I GOP 3 JMP XRETRY 

A8D 1 

49FF 

691 0 

BLKNUM EOR #$FF 

A8D3 

CD6405 

6920 

CMP X BLKNUM ; AM I GETTING 

A8D6 

F02 1 

6930 

BEQ XNUMOK ; THE RIGHT BLK 

A8DS 

CE6405 

6940 

DEC X BLKNUM 

A8DB 

CD6405 

6950 

CMP X BLKNUM ? IS IT SENDING THE SAME BLK AGAIN 

A8DE 

08 

6960 

PHP 

A8DF 

EE 64 05 

6970 

INC X BLKNUM 

A8E2 

201 AAA 

6980 

JSR XIGREC 

A8E5 

DO 04 

6990 

BNE XIG4 

ASE7 

28 

7000 

PLP 

A8E8 

4C6BA9 

7 0 1 0 

JMP OPSTOP 

A8EB 

28 

7020 

XIG4 PLP 

A8EC 

F003 

7030 

BEQ XACKCO ; IF SO ACK IT AND CONTINUE 

A8EE 

4CE4A9 

7040 

JMP REMABORT 

ASF 1 

A906 

7050 

XACKCO LDA #ACK 
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ABF 3 

2097 AO 

7060 

JSR WRITE 

A8F6 

4C5CA8 

7070 

JMP GETREC 

ABF9 

20CFAA 

70 SO 

XNUMOK JSR PBLKNUM 

ASFC 

A 280 

7090 

LDX #128 

A8FE 

A 900 

7 1 00 

EDA 4$ O 

A900 

8D5E05 

7110 

8TA CHKSUH 

A 9 03 

8E5D05 

7 1 20 

XML OP STX XTEMP2 

A906 

204BAA 

7 1 30 

JSR GXCHAR 

A 909 

1 003 

7 1 40 

BPL X0K2 

A90B 

2057A8 

7 1 50 

JSR X RETRY 

A90E 

F05B 

7 1 60 

X0K2 BEG OPSTOP 

A9 1 0 

AE5D05 

7170 

LDX XTEMP2 

A913 

48 

7 1 80 

PHA 

A9 1 4 

18 

7190 

CLC 

A915 

6D5E05 

7200 

ADC CHKSUM 

A918 

8D5E05 

7210 

STA CHKSUM 

A91B 

68 

7220 

PLA 

A91C 

9DD904 

7230 

STA XMBUFF ? X 

A91F 

CA 

7240 

DEX 

A920 

DOE 1 

7250 

BNE XMLOP 

A922 

204BAA 

7260 

JSR GXCHAR 

A925 

1 003 

7270 

BPL XOK 1 

A927 

4C57A8 

7280 

JMP XRETRY 

A92A 

F03F 

7290 

XOK 1 BEG OPSTOP 

A92C 

CD5E05 

7300 

CMP CHKSUM 

A92F 

F008 

73 1 0 

BEG GOODREC 

A93 1 

A 9 00 

7320 

LDA #0 

A933 

8D6B05 

7330 

STA GOTREC 

A936 

4C57AS 

7340 

JMP XRETRY 

A939 

A 90 1 

7350 

GOODREC LDA #1 

A93B 

8D6B05 

7360 

STA GOTREC 

A93E 

A 90 6 

7370 

LDA #ACK 

A 9 40 

2097 AO 

7380 

JSR WRITE 

A943 

EE6405 

7390 

INC XBLKMUM 

A 9 46 

AD6405 

7400 

LDA XBLKNUM ; THESE ARE SO 

A949 

D003 

7410 

BNE BUGG1 ; XBLKNUM WRAP 

A94B 

EE6405 

7420 

INC XBLKNUM ; TO 1 , NOT 0! 

A94E 

4C5CAS 

7430 

BUGG1 JMP GETREC 

A95 1 

A 280 

7440 

SAVREC LDX #128 

A953 

8E6205 

7450 

STX XBYTE 

A956 

AE6205 

7460 

RECLOP LDX XBYTE 

A959 

BDD904 

7470 

LDA XMBUFF „ X 

A95C 

48 

7480 

PHA 

A95D 

206AA4 

7490 

JSR KEEPER 

A960 

AD9204 

7500 

LDA LOADF 

A963 

F 006 

7510 

BEG OPSTOP 

A965 

CE6205 

7520 

DEC XBYTE 

A968 

DOEC 

7530 

BNE RECLOP 

A96A 

60 

7540 

RTS 

A96B 

AD6505 

7550 

OPSTOP LDA BFPTS 

A96E 

85CC 

7560 

STA BUFPTR 

A970 

SD8604 

7570 

STA MAXTOR 

A973 

AD6605 

7580 

LDA BFPTS+1 

A976 

85CD 

7590 

STA BUFPTR4-1 

A978 

8D8704 

7600 

STA MAXTOR* 1 

A97B 

AD9004 

7610 

LDA DISKF 

A97E 

F003 

7620 

BEG NODSK 

A980 

200CAB 

7630 

JSR DSKFIX 
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A983 

A 90 1 

7640 

A9S5 

8D6105 

7650 

A988 

201 AAA 

7660 

A9SB 

A918 

7670 

A98D 

2097 AO 

7680 

A 9 90 

2 000 A A 

7690 

A993 

4CBCAA 

7700 

A996 

A20 1 

77 1 0 

A99S 

BDD904 

7720 

A99B 

3 OB 4 

7730 

A99D 

C97F 

7740 

A99F 

DO 08 

7750 

A9A 1 

A90 1 

7760 

A9A3 

8D6B05 

7770 

A9A6 

4CBEA9 

7780 

A9A9 

8D6205 

7790 

A9AC 

A 980 

7800 

A9AE 

38 

78 1 0 

A9AF 

ED6205 

7820 

A9B2 

8D6B05 

7830 

A9B5 

A A 

7840 

A9B6 

BDD904 

7850 

A9B9 

CD6205 

7860 

A9BC 

D093 

7870 

A9BE 

A 280 

7880 

A9C0 

8E6205 

7890 

A9C3 

AE6205 

7900 

A9C6 

BDD904 

7910 

A9C9 

48 

7920 

A9CA 

206AA4 

7930 

A9CD 

AD9204 

7940 

A9D0 

F099 

7950 

A9D2 

CE6205 

7960 

A9D5 

AD6205 

7970 

A9D8 

CD6B05 

7980 

A9DB 

DOES 

7990 

A9DD 

60 

8000 

A9DE 


80 1 0 

A9DE 

2000 A A 

8011 

A9E1 

4CBCAA 

8020 

A9E4 


8030 

A9E4 

A 9 OB 

803 1 

A9E6 

A240 

8040 

A9ES 

9D4203 

8050 

A9EB 

A994 

8 U 6 U 

A9ED 

9D4403 

8070 

A9F0 

A9A7 

8080 

A9F2 

9D4503 

8090 

A9F5 

A927 

8 1 00 

A9F7 

9D4803 

8 1 1 0 

A9FA 

2056E4 

8120 

A9FD 

4C6BA9 

8 1 30 

A A 00 

A90B 

8140 

A A 02 

6240 

8150 

A A 04 

9D4203 

8 1 60 

AA07 

A97B 

8170 

AA09 

9D4403 

8180 

AAOC 

A9A7 

8 1 90 


NODSK LDA #1 

STA KEYTOG 
JSR XI GREG 
LDA #CAN 
JSR WRITE 
JSR EOTMES 
JMP XMEXIT 
SAVPREC LDX #1 

LDA XMBUFF , X 
BMI SAVREC 
CMP #127 
BNE MOAN 
LDA #1 
STA GGTREC 
JMP SAV 

MOAN STA XBYTE 
LDA #128 
SEC 

SBC XBYTE 
STA GOTREC 
TAX 

LDA XMBUFF , X 
CMP XBYTE 
BNE SAVREC 
SAV LDX #128 
STX XBYTE 
LZP LDX XBYTE 

LDA XMBUFF, X 
PH A 

JSR KEEPER 
LDA LOADF 
BEQ OPSTOP 
DEC XBYTE 
LDA XBYTE 
CMP GOTREC 
BNE LZP 
RTS 
REMSTOP 

JSR EOTMES 
JMP XMEXIT 
REMABORT 

LDA #*OB 
LDX #*40 
STA ICCOM, X 
LDA # CXMES5 
STA I CBAL , X 
LDA # >XMES5 
STA ICBAH, X 
LDA #C XMES6— XMES5D 
STA ICBLL,X 
JSR CIOV 
JMP OPSTOP 
EOTMES LDA #*0B 
LDX #*40 
STA ICCOM, X 
LDA # < XMES4 
STA I CBAL, X 
LDA # >XMES4 
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STA 

ICBAH, X 

LDA 

#25 

STA 

I CELL, X 

JSR 

CIOV 

RTS 



; WAIT FOR A ONE SECOND SPACE 
; BETWEEN CHARACTERS AND THEN 
5 RETURN OR ABORT WITH OPTION KEY 

n 

n 

■ ? y ? ^ 

■ O ABORT WITH OPTION KEY 

; 1 ONE SECOND HAS ELAPSED 

• 

* 

XIGREC LDA #62 
STA XTEMP 
XIGRC1 JSR TESOF’T 
BEG TST2 
LDY #0 
RTS 

TST2 LDA #$FE 

CMP INPBFPT 
BEQ NOCHAR 
JSR READ 
JSR PIT 
LDA #61 
STA XTEMP 
NOCHAR LDA 20 
CMP X TEMPI 
BEG XIGRC1 
STA X TEMPI 
DEC XTEMP 
BNE XIGRC1 
LDY #1 
RTS 

; GET A CHAR FROM THE MODEM WHEN 
? AVAIL OR ABORT WITH OPTION KEY 
; =* Y ? = 

; 1 OK CHAR IN A REG 

; O OPTION KEY ABORT 
; $80 OVER 1 SECOND ABORT 

GXCHAR LDA #62 
STA XTEMP 
GXC JSR TESOPT ; 


AAOE 

9D4503 

8200 

AA1 1 

A9 1 9 

8210 

AA13 

9D4803 

8220 

AA 1 6 

2056E4 

8230 

AA 1 9 

60 

8240 



8250 



8260 



8270 



8280 



8290 



8300 



8310 



8320 



8330 

AA1 A 

A93E 

8340 

AA 1 C 

8D5B05 

8350 

AA IF 

2 094 A A 

8360 

AA22 

F003 

8370 

AA24 

A 000 

8380 

AA26 

60 

8390 

AA27 

A9FE 

8400 

AA29 

CDB604 

8410 

AA2C 

FOOD 

8420 

AA2E 

2094 AO 

8430 

AA3 1 

2074 A A 

8440 

AA34 

A93D 

8450 

AA36 

8D5B05 

8460 

AA39 

A514 

8470 

AA3B 

CD5C05 

8480 

AA3E 

FODF 

8490 

AA40 

8D5C05 

8500 

AA43 

CE5B05 

85 1 0 

AA46 

D0D7 

8520 

AA48 

A 00 1 

8530 

AA4A 

60 

8540 



8550 



8560 



8570 



8580 



8590 



8600 

AA4B 

A93E 

8610 

AA4D 

8D5B05 

8620 

AA50 

2094AA 

8630 

A A 3 •«« 

F003 

8640 

AA55 

A 000 

8650 

AA57 

60 

8660 

AA58 

A9FE 

8670 

AA5A 

CDB604 

8680 

AA5D 

DO 1 2 

8690 

AA5F 

A514 

8700 

AA6 1 

CD5C05 

8710 

A A 6 4 

FOE A 

8720 

AA 66 

8D5C05 

8730 

AA69 

CE5B05 

8740 

AA 6 C 

DOE 2 

8750 

AA 6 E 

A 080 

8760 

AA70 

60 

8770 


BEG TSTBUF 
LDY #0 
RTS 

TSTBUF LDA #$FE 
CMP INPBFPT 
BNE INCHAR 
LDA 20 
CMP XTEMP 1 
BEG GXC 
STA XTEMP 1 
DEC XTEMP 
BNE GXC 
LDY #$80 
RTS 


IS OPTION KEY DOWN 
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AA7 i 

209 4 AO 

8780 3 

[NCHAR 

T C3* d* r**i r*~ /\ t*\ 

JbK KbrtD 

A A 74 

48 

8790 F 

: *IT PHA 


AA75 

A 90 1 

8800 

LDA 

#1 

AA77 

8DFE02 

88 1 0 

STA 

DSPFLG 

AA7A 

A90B 

8820 

LDA 

#$0B 

AA7C 

A240 

8830 

LDX 

m>AO 

AA7E 

9D4203 

8840 

STA 

ICCOM, X 

AAS1 

A 900 

8850 

LDA 

#0 

AA83 

9D4803 

8860 

STA 

ICBLL, X 

AA 86 

68 

8870 

PLA 


AAS7 

48 

8880 

PHA 


AASB 

2056E4 

8890 

JSR 

CIOV 

AASB 

A 900 

8900 

LDA 

#0 

AA 8 D 

8DFE02 

8910 

STA 

DSPFLG 

A A 90 

68 

8920 

PLA 


AA9 1 

A 00 1 

8930 

LDY 

#1 

AA93 

60 

8940 

RTS 




8950 





8960 





8970 

IS THE OPTION K 



8980 

; ’ Y ? = 1 

YES 



8990 

? y ? «0 

NO 



9000 

* 


AA94 

A9F8 

9010 “ 

rESOPT 

LDA #$F 8 

AA96 

BD1FD0 

9020 

STA 

CONSOL 

AA99 

AD6105 

9030 

LDA 

KEYTOG 

AA9C 

FOOC 

9040 

BEQ 

INTEST 

AA9E 

A904 

9050 

LDA 

#4 

AAAO 

2D1FD0 

9060 

AND 

CONSOL 

AAA3 

F005 

9070 

BEQ 

INTEST 

AAA5 

A 900 

9080 

LDA 

#0 

AAA7 

8D6105 

9090 

STA 

KEYTOG 

A A Art 

AD6105 

9100 3 

CNTEST 

_DA KEYTOG 

AAAD 

DOOA 

9110 

BNE 

NOTNOW 

AAAF 

A 90 4 

9120 

LDA 

#4 

AAB 1 

2C1FD0 

9130 

BIT 

CONSOL 

AAB4 

D003 

9140 

BNE 

NOTNOW 

AAB 6 

AOO 1 

9 1 50 

LDY 

#1 

AAB 8 

60 

9160 

RTS 


AAB9 

A 000 

9170 r 

slOTNOW 

LDY #0 

AABB 

60 

9180 

RTS 




9190 ; 



AABC 

A 9 00 

9200 ) 

<MEX I T 

LDA #0 

AABE 

SDCS02 

9210 

STA 

712 

AACi 

8D9204 

9220 

STA 

LOADF 

AAC4 

8D9304 

9230 

STA 

SAVEF 

AAC7 

A 2 30 

9240 

LDX 

#$30 

AAC9 

2029AB 

9250 

JSR 

CIOCB 5 

AACC 

4C24A3 

9260 

JMP 

L00P3 



9270 : 





9280 

; PRINT 

XMES3 AND 



9290 

N 

n 


AACF 

85D4 

9300 F 

=*BLKNUM 

STA FRO 5 

A ADI 

A 9 00 

9310 

LDA 

#0 

AAD3 

85D5 

9320 

STA 

FRO+i 

AAD5 

20AAD9 

9330 

JSR 

IFP • 

AAD 8 

20E6D8 

9340 

JSR 

FASC 

AADB 

A 2 40 

9350 

LDX 

#$40 


; CLOSE DISK BUG 


PRINT BLOCK # 
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AADD 

A964 

9360 

LDA 

# < XMES 

AADF 

9D4403 

9370 

STA 

ICBAL, X 

AAE2 

A9A7 

9380 

LDA 

# >xmes: 

AAC4 
nnt- t 

9D4503 

9390 

STA 

I CB AH , X 

AAE7 

A9 1 7 

9400 

LDA 

#23 

AAE9 

9D4803 

9410 

STA 

I CELL, X 

AAEC 

A 9 OB 

9420 

LDA 

#$0B 

AAEE 

9D4203 

9430 

STA 

ICCOM, X 

AAF 1 

2056E4 

9440 

JSR 

CIOV 

AAF4 

20BCB1 

9450 

JSR 

PASC 

AAF7 

A 240 

9460 

LDX 

#$40 

AAF9 

A90B 

9470 

LE>A 

#$0B 

AAFB 

9D4203 

9480 

STA 

ICCOM, X 

AAFE 

A 9 00 

9490 

LDA 

#0 

ABOO 

9D4803 

9500 

STA 

ICBLL , X 

A BO 3 

9D4903 

9510 

STA 

ICBLH, X 

AB06 

A99B 

9520 

LDA 

#155 

AB08 

2056E4 

9530 

JSR 

CIOV 

ABOB 

60 

9540 

RTS 


ABOC 

A230 

9550 

DSKFIX LDX #$30 

ABOE 

A90C 

9560 

LDA 

#$0C 

AB 1 0 

9D4203 

9570 

STA 

ICCOM, X 

AB 1 3 

2056E4 

9580 

JSR 

CIOV 

AB 1 6 

A 9 03 

9590 

LDA 

#$03 

AB18 

9D4203 

9600 

STA 

ICCOM, X 

AB1B 

A996 

9610 

LDA 

# <BUFF 

AB1D 

9D4403 

9620 

STA 

ICBAL, X 

AB20 

A 900 

9630 

LDA 

# >BUFF 

AB22 

9D4503 

9640 

STA 

ICBAH, X 

AB25 

2056E4 

9650 

JSR 

CIOV 

AB28 

60 

9660 

RTS 





9670 

it 

5 





03 1 0 

.INCLUDE #Ds 

OPENS. SRC 



1 0 ; 
r?o - 

Am V q 

SAVE #D2 s OPENS. SRC 



"T 

40 ; CLOSE IOCB INDEXED BY X 

AB29 

A90C 

50 CIOCB LDA 

#$0C 

; CLOSE 

AB2B 

9D4203 

60 

STA 

ICCMD, X 


AB2E 

2056E4 

70 

JSR 

CIOV 


AB31 

60 

80 
90 ; 

RTS 





0 1 00 

; OPEN KEYBOARD 


AB32 

A 2 1 0 

0 1 1 0 

OKEYB LDX #$10 


AB34 

2029 AB 

0 1 20 

JSR 

CIOCB 

; CLOSE #1 

AB37 

A 9 00 

0 1 30 

LDA 

#0 


AB39 

9D4803 

0140 

STA 

ICBLL, X 

5 LENGTH 0 

AB3C 

9D4903 

0 1 50 

STA 

ICBLH, X 


AB3F 

A 9 03 

0 1 60 

LDA 

#$03 

; OPEN 

AB4 1 

9D4203 

0 1 70 

STA 

ICCMD, X 


AB44 

A 9 04 

0 1 80 

LDA 

#4 

; I NF‘UT 

AB46 

9D4A03 

0 1 90 

STA 

ICAX1 , X 


AB49 

A98 1 

0200 

LDA 

# CKEYB 


AB4B 

9D4403 

02 1 0 

STA 

ICBAL, X 


AB4E 

A9AB 

0220 

LDA 

# >KEYB 


AB50 

9D4503 

0230 

STA 

ICBAH, X 


AB53 

2056E4 

0240 

JSR 

CIOV 


AB56 

60 

0250 

RTS 




D: TERM. SRC 
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D: OPENS. SRC 


0260 

0270 


; OPEN EDITOR TO 


AB57 

A 2 40 

0280 

OEDIT LDX #$40 

AB59 

2029AB 

0290 

J SR 

Cl OCB 

AB5C 

A 903 

0300 

LDA 

#$03 

AB5E 

9D4203 

03 1 0 

STA 

I CCMD , X 

AB61 

A90C 

0320 

LDA 

#12 

AB63 

9D4A03 

- -?* 

v' 1 

STA 

ICAX1 , X 

AB66 

A983 

0340 

LDA 

# < ED I T 

AB68 

904403 

0350 

STA 

ICBAL, X 

AB6B 

A9AB 

0360 

LDA 

# >ED I T 

AB6D 

9D4503 

0370 

STA 

ICBAH, X 

AB70 

2056E4 

0380 

JSR 

CIOV 

AB73 

A 900 

0390 

LDA 

#0 

AB75 

8DC602 

0400 

STA 

$02C6 

AB7S 

8DCS02 

04 1 0 

STA 

$02C8 

AB7B 

A908 

0420 

LDA 

#$08 

AB7D 

8DC502 

0430 

STA 

$02C5 

AB80 

60 

0440 

RTS 


AB81 

4B9B 

0450 

KEYB .BYTE "K", 

AB83 

459B 

0460 

EDIT .BYTE "E", 


I/O 

I OCB #4 
OPEN 


I/O 





fa'O 


SCREEN L — - 
BORDER 

CHARACTERS 


0320 
10 5 
20 ; 
30 * 
40 ; 
50 s 


KEYB .BYTE "K" ,155 
EDIT .BYTE "E",155 

. I NCLUDE #D : BUFFERS . SRC 
SAVE #D2: BUFFERS. SRC 


BUFFER HANDLER FOR SMART TERMINAL 
BUFFNUM = # OF BUFFERS 


ABBS 

ADA504 

60 NEWBUFF LDA BUFFNUM 

AB88 

C908 

70 

CMP 

#8 

ABBA 

F03C 

80 

BEQ 

TOMANY 

AB8C 

ADS 104 

90 

LDA 

TOF’BUF+1 

AB8F 

CD8704 

0 1 00 

CMP 

MAXTOR-*- 1 

AB92 

9034 

0 1 1 0 

BCC 

TOMANY 

AB94 

DOOA 

0120 

BNE 

BUFOK 

AB96 

AD 800 4 

0 1 30 

LDA 

TOF’BUF 

AB99 

CD8604 

0140 

CMP 

MAXTOR 

AB9C 

902A 

0 1 50 

BCC 

TOMANY 

AB9E 

F028 

0 1 60 

BEQ 

TOMANY 

ABAO 

A U 0 O 

0 1 70 

BUFOK LDY #0 

ABA2 

A920 

0180 

LDA 

#$20 

ABA4 

9 ICC 

0 1 90 

STA 

(BUFPTR) , Y 

ABA6 

E6CC 

0200 

INC 

BUFPTR 

ABAS 

D002 

02 1 0 

BNE 

INCRND 

ABAA 

E6CD 

0220 

INC 

BUFPTR-*- 1 

ABAC 

EEA504 

0230 

INCRND 

INC BUFFNUM 

ABAF 

ADA504 

0240 

LDA 

BUFFNUM 

ABB2 

20E7AB 

0250 

JSR 

BINDEX 

ABBS 

ASCC 

0260 

LDA 

BUFPTR 

ABB7 

998000 

0270 

STA 

BUFFER, Y 

ABBA 

8D8604 

0280 

STA 

MAXTOR 

ABBD 

ASCD 

0290 

LDA 

BUFPTR-*- 1 

ABBF 

998 1 00 

0300 

STA 

BUFFER-*-! , Y 

ABC2 

8D8704 

03 1 0 

STA 

MAXTOR-*- 1 

ABCS 

4CDFAD 

0320 

JMP 

MENU 

ABC8 

A 240 

0330 

TOMANY ! 

LDX #$40 

ABCA 

A90B 

0340 

LDA 

#$0B 

ABCC 

9D4203 

0350 

STA 

I CCMD, X 

ABCF 

A9F4 

0360 

LDA 

# CTMANY 


NEW BOTTOM 
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ABB! 9D4403 0370 STA ICBAL.X 

ABD4 A9AB 0380 LDA # >TMANY 

ABD6 9D4503 0390 STA ICBAH.X 

ABD9 A9 1 A 0400 LDA #26 

ABDB 9D4803 0410 STA I CELL, X 

ABDE 2056E4 0420 JSR CIOV 

ABE1 20D4B0 0430 JSR WAITKEY 

ABE4 4CDFAD 0440 JMP MENU 

0450 ; 

0460 ;B INDEX ENTRY A=BUFFER TO INDEX 
0470 ; EX IT Y= BUFF, Y INDEX 
0480 ; 

ABE7 AA 0490 B INDEX TAX 

ABE8 AOOO 0500 L.DY #0 

ABEA EOOO 0510 BLOOP CPX #0 

ABEC F005 0520 BED INDONE 

ABEE CA 0530 DEX 

ABEF C8 0540 I NY 

ABFO C8 0550 I NY 

ABF 1 DOF 7 0560 BNE BLOOP 

ABF3 60 0570 INDONE RTS 

ABF4 9BFD2A2A 0580 TMANY .BYTE 155, *FD,"*** OUT OF BUFFERS ***",155,155 

ABF8 2A204F55 

ABFC 54204F46 

ACOO 20425546 

AC04 46455253 

AC08 202A2A2A 

ACOC 9B9B 

0590 ; 

0330 .INCLUDE #D: EDITOR. SRC 

10 ; SAVE #D2: EDITOR. SRC 
20 ; 

v 


ACOE 

2057 AB 

40 EDITOR JSR 

: OEDIT 

ACi i 

ADS 104 

50 EDITLP LDA 

i TOPBUF+1 

AC 14 

38 

60 

SEC 


AC 15 

E90 1 

70 

SBC 

#1 

AC 1 7 

CD8704 

80 

CMP 

MAXTOR* 1 

AC 1 A 

9077 

90 

BCC 

EFULL 

AC1C 

DOGA 

0100 

BNE 

NOTFUL 

AC IE 

AD8004 

0 1 1 0 

LDA 

TOPBUF 

AC 2 1 

CDS604 

0 1 20 

CMP 

MAXTOR 

AC24 

906D 

0 1 30 

BCC 

EFULL 

AC26 

F06B 

0 1 40 

BEQ 

EFULL 

AC28 

A 90 5 

0 1 50 

NQTFUL LDA #5 

AC2A 

9D4203 

0 1 60 

STA 

ICCMD, X 

AC2D 

A97F 

0 1 70 

LDA 

#127 

AC2F 

9D4803 

0 1 80 

STA 

ICBLL, X 

AC32 

A 9 00 

0 1 90 

LDA 

#0 

AC34 

9D4903 

0200 

STA 

ICBLH, X 

AC37 

A5CC 

02 1 0 

LDA 

BUFPTR 

AC39 

904403 

0220 

STA 

ICBAL, X 

AC3C 

A5CD 

0230 

LDA 

BUFPTR* 1 

AC3E 

9D4503 

0240 

STA 

ICBAH, X 

AC4 1 

2056E4 

0250 

JSR 

C 1 0 V 

AC 4 4 

3034 

0260 

BMI 

EDERR 

AC46 

A9F8 

0270 

LDA 

#*F8 

AC48 

8D1FD0 

0280 

STA 

CONSOL 
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D: EDITOR. SRC 

AC4B 

A 90 1 

0290 

LDA 

#1 



AC4D 

2D1FD0 

0300 

AND 

CONSOL 



AC 50 

F028 

03 1 0 

BEQ 

EDERR 



AC52 

BD4803 

0320 

LDA 

I CELL, X 



AC55 

18 

0330 

CLC 




AC56 

65CC 

0340 

ADC 

BUFPTR 



AC58 

85CC 

0350 

STA 

BUFPTR 



AC5A 

9002 

0360 

BCC 

NOCARRY 



AC5C 

E6CD 

0370 

INC 

BUFPTR* 1 





0380 

3 PR I NT 

LINES 



AC5E 

A 2 40 

0390 

NOCARRY 

LDX #$40 



AC60 

A 90 9 

0400 

LDA 

#$09 



AC62 

9D4203 

04 1 0 

STA 

ICCMD, X 



AC65 

A92B 

0420 

LDA 

# 4 •!*» 



AC67 

9D4803 

0430 

STA 

I CELL, X 



AC6A 

A9C5 

0440 

LDA 

# CLINE 



AC6C 

9D4403 

0450 

STA 

ICBAL, X 



AC6F 

A9AC 

0460 

LDA 

# >LINE 



AC7 1 

9D4503 

0470 

STA 

ICBAH, X 



AC74 

2056E4 

0480 

JSR 

C I OV 



AC77 

4C 1 1 AC 

0490 

JMP 

EDITLP 



AC 7 A 

BD4803 

0500 

EDERR LDA I CELL, X 



AC7D 

IS 

05 1 0 

CLC 




AC7E 

65CC 

0520 

ADC 

BUFF'TR 



AC80 

85CC 

0530 

STA 

BUFPTR 



ACS2 

9002 

0540 

BCC 

NOCAR 1 



AC84 

E6CD 

0550 

INC 

BUFPTR+I 



AC86 

A5CC 

0560 

NOCAR 1 LDA BUFF'TR 



AC88 

8D8604 

0570 

STA 

MAXTOR 



AC8B 

A5CD 

0580 

LDA 

BUFPTR* 1 



AC8D 

8D8704 

0590 

STA 

MAXTOR* 1 



AC 90 

4CDFAD 

0600 

JMP 

MENU 



AC93 

A 9 09 

06 1 0 

EFULL LDA #*09 



AC 9 5 

9D4203 

0620 

STA 

ICCMD, X 



AC98 

A 9 28 

0630 

LDA 

#40 



AC 9 A 

9D4803 

0640 

STA 

I CELL, X 



AC9D 

A9B0 

0650 

LDA 

# < MED IT 



AC9F 

9D4403 

0660 

STA 

ICBAL, X 



/\p/\n 
hi w r* 1 

A9AC 

0670 

LDA 

# >MED IT 



ACA4 

9D4503 

0680 

STA 

ICBAH, X 



ACA7 

2056E4 

0690 

JSR 

C I OV 



ACAA 

20D4B0 

0700 

JSR 

WAITKEY 



ACAD 

4CDFAD 

07 1 0 

JMP 

MENU 



ACBO 


0720 

MED IT 




AC BO 

FD2A2A2A 

0730 

. BYTE $FD, "*** 

EDITOR FULL ***",155 


ACB4 

20454449 






ACB8 

544F5220 






ACBC 

46554C4C 






ACCO 

202A2A2A 






ACC4 

9B 






ACCS 


0740 

LINE 




ACC5 

3D3D3D3D 

0750 

.BYTE n 

H 

II 

H 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ii i nr nr 

ACC9 

3D3D3D3D 






ACCD 

3D3D3D3D 






ACD 1 

3D3D3D3D 






ACD5 

3D3D3D3D 






ACD9 

3D3D3D3D 






ACDD 

3D3D3D3D 
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Ds EDITOR- SRC 


ACE 1 3D3D3D3D 
ACE5 3D3D3D3D 
ACE9 3D9B 


AD26 60 


AD27 

AD27 A902 
AD29 8552 
AD2B A945 
AD2D 8D6805 
AD30 A21B 
AD 32 


0760 

0340 

0350 

0360 

0370 

0380 


DOES THIS ONCE ON BOOT-UP 


ACEB 


0390 

START 




0400 

; SKIP REST IF ALREADY BOOTED 

ACEB 

A508 

04 1 0 

LDA 

$08 ; WARMST 

ACED 

D02B 

0420 

BNE 

WARM 

ACEF 

A 9 20 

0430 

LDA 

#$20 ; JSR OPCODE 

ACF 1 

8D9904 

0440 

STA 

INIT 

ACF4 

A50C 

0450 

LDA 

DOS INI 

ACF6 

8D9A04 

0460 

STA 

INIT+i 

ACF9 

A SOD 

0470 

LDA 

DOS I N I 1 

ACFB 

8D9B04 

0480 

STA 

INIT -+*2 

ACFE 

A999 

0490 

LDA 

# < INIT 

ADOO 

850C 

0500 

STA 

DOS INI 

AD02 

A 904 

05 1 0 

LDA 

# > INIT 

AD04 

8 SOD 

0520 

STA 

DOSINI+1 

AD06 

A 9 20 

0530 

LDA 

#$20 ; JSR OPCODE 

ADOS 

SD9C04 

0540 

STA 

INIT+3 

ADOB 

A91E 

0550 

LDA 

# < INI TONE 

ADOD 

8D9D04 

0560 

STA 

INIT + 4 

AD 10 

A9AD 

0570 

LDA 

# > I N I TONE 

AD 12 

8D9E04 

0580 

STA 

INIT+5 

AD 15 

A960 

0590 

LDA 

#$60 ; RTS 

AD 17 

8D9F04 

0600 

STA 

INIT+6 

ADI A 

20 IE AD 

06 1 0 

WARM JSR INI TONE 

AD ID 

60 

0620 

RTS 




0630 

n 

•1 




0640 

; DO THIS ON EVERY SYSTEM RESET 



0650 

II 

n 


AD IE 

A927 

0660 

INI TONE 

LDA # < STERM 

AD20 

850 A 

0670 

STA 

nnSVFC 

JL »«ir %MT T 1— — %««/ 

AD22 

A9AD 

0680 

LDA 

# >STERM 

AD24 

850B 

0690 

STA 

DOSVEC-+- 1 

•* 

M 

=000 1 

0700 

» 

IF PROM 



0710 

m 1 

ELSE 


0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
08 i O 
0820 
0830 
0840 
0850 
0860 
0870 


LDA # <ENDPR 

STA $02E7 

LDA # >ENDPR 

STA $02E8 ; MEMLO+ 1 

- END IF 


RTS 


START OF TERMINAL SOFTWARE 


STERM 

LDA #2 
STA $52 
LDA #69 - 
STA BAUD 
L.DX #$ 1 B 
STERM. 1 


5 RIGHT MARGIN 

> 


PAGE 


D : MENU . SRC 


*.~l •—* 


AD32 

BDD8BF 

0880 

LDA 

RGMJTABLE 

AD35 

9DBD04 

0890 

STA 

JTABLE, X 

AD38 

CA 

0900 

DEX 


AD 3 9 

IGF 7 

09 1 0 

BPL 

STERM. 1 

AD3B 

A 900 

0920 

LDA 

#0 

AD3D 

8DBA04 

0930 

STA 

F'ARFLG 

AD40 

8D8804 

0940 

STA 

TRANF ; 

AD43 

8D8A04 

0950 

STA 

BITSF 

AD46 

SD8904 

0960 

STA 

B I NF 

AD49 

8D8B04 

0970 

STA 

BUPLF 

AD4C 

8D9404 

0980 

STA 

FULLF 

AD4F 

SDA504 

0990 

STA 

BUFFNUM 

AD52 

8D8F04 

1 000 

STA 

COLFLG 

AD55 

3D9604 

1 0 1 0 

STA 

ANSFLS 

AD58 

8DA604 

1 020 

STA 

DIALF 

AD5B 

8DE102 

1 030 

STA 

$02E 1 

AD5E 

8DA704 

1040 

1050 

STA HANDFLG 
; SET LOW BUFFER T 5 

AD6 1 

85CA 

1 060 

STA 


AD63 

A906 

1070 

LDA 

AD65 

85CB 

1 080 

STA 

INPBUF+l 

AD67 

ADE702 

1 090 

LDA 

$02E7 ; 

AD6A 

8D8204 

1 1 00 

STA 

BOTBUF 

AD6D 

3500 

1110 

STA 

BUFPTR 

AD6F 

8580 

1 1 20 

STA 

BUFFER 

AD7 i 

SD8604 

1 1 30 

STA 

MAXTOR 

AD74 

ADE802 

1 1 40 

LDA 

*02Ep 

AD77 

8DS304 

1 1 50 

STA 

BOTBUF+1 

AD7A 

85CD 

1 1 60 

STA 

BUFPTR+ 1 

AD7C 

8581 

1 1 70 

STA 

BUFFER* 1 

AD7E 

3D8704 

1180 

STA 

MAXTOR*!. 


ZERO FLAGS 


7 // 


/ 


; =$600 
MEMLO 


^ /f^5 -tuo 


AD84 

8D8004 

1 200 

STA 

TOPBUF 

AD87 

8D8404 

1 2 1 0 

STA 

BUFMAX 

AD8A 

8DA304 

1220 

STA 

DIALADD 

AD8D 

35C8 

1 230 

STA 

DIALBF 

AD8F 

ADE602 

1 240 

LDA 

MEMTOP+- 1 

AD92 

38 

1 250 

ccp 


AD93 

E902 

1 260 

SBC 

TT 

AD95 

8D8104 

1270 

STA 

TOPBUF+1 

AD98 

8DA404 

1 280 

STA 

DIALADD-+-1 

AD9B 

85C9 

1290 

STA 

DIALBF+1 

AD9D 

E904 

1 300 

SBC 

w w 

#4 

AD9F 

8D8504 

1 3 1 0 

STA 

BUFMAX+l 

ADA2 

A 509 

1320 

LDA 

$09 

ADA4 

FOIE 

1 330 

BEG 

N080C0L 

ADA6 

AD8F04 

1340 

LDA 

COLFLG 

ADA9 

C980 

1 350 

CMP 

#^80 

ADAB 

DO 03 

1 360 

BNE 

VEAH_^-^ 

ADAD 

4CDFAD 

1370 

JMP 

MENU 

ADBO 

A9A2 

1380 

YEAH LDA # <M79 ; 

ADB2 

8DA804 

1390 

STA 

RFNAME 

ADB5 

A9BD 

1 400 

LDA 

# >M 79 

ADB7 

8DA904 

141 0 

STA 

RFNAME+1 

ADBA 

2 000 AO 

1420 

JSR 

GETHDR • 

ADBD 

3005 

1 430 

BMI 

N080C0L 

ADBF 

A901 

1440 

LDA 

#^0 1 

ADC 1 

8DA704 

1 450 

STA 

HANDFLG ^ 




TS 

\ 





/? 



GO FOR MS23° 
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34 


ADC4 

208BA0 

1460 

N080C0L 

JSR MODIf 

ADC7 

209DA0 

1470 

JSR 

ONHOOK 

ADCA 

A GOO 

1480 

LDY 

#0 

ADCC 

A99B 

1490 

CRLOOP LDA #155 

ADCE 

91C8 

1 500 

STA 

(DIALBF) 

ADDO 

CS 

1 5 1 0 

I NY 


ADD 1 

CGFC 

1520 

CPY 

#252 

ADD 3 

DGF7 

1 530 

BNE 

CRLOOP 

ADDO 

A509 

1540 

LDA 

*09 

ADD? 

F0G3 

1550 

BED 

CASBT 

ADD9 

2066BC 

1560 

JSR 

LDNUM ^ 

ADDC 

2G8EAG 

1570 

CASBT JSR OPEN 



1580 

n 

•1 




1590 

; PRINT MENU WITH 



1 600 

at 

!» 


ADDF 

78 

1 6 1 0 

MENU SEI 


ADEO 

A51G 

1620 

LDA 

*10 

ADE2 

G98G 

1630 

ORA 

#*80 

ADE4 

85 1G 

1640 

STA 

*10 

ADE6 

8DOED2 

1 650 

STA 

IRQEN 

ADE9 

58 

1 660 

CL I 


ADEA 

A94G 

1670 

LDA 

#*40 

ADEC 

8DBE02 

1680 

STA 

*02BE 

ADEF 

A 9 GO 

1690 

LDA 

#0 

ADF 1 

8DB6G2 

1 700 

STA 

*02B6 

ADF4 

SD92G4 

1710 

STA 

L.OADF 

ADF7 

8D9304 

1720 

STA 

SAVEF 

ADFA 

8D8DG4 

1 730 

STA 

SAVMOD 

ADFD 

8D9GG4 

1740 

STA 

D I SKF 

AEOO 

8DSCG4 

1750 

STA 

CASFLG 

AEG 3 

8D95G4 

1760 

STA 

DF’RFLG 

AE06 

8D6C05 

1770 

STA 

PHONE 

AE09 

8D6DG5 

1780 

STA 

OPFLG 

AEOC 

AD86G4 

1790 

LDA 

MAXTOR 

AEOF 

85CC 

1 800 

STA 

BUFPTR 

AE1 1 

AD87G4 

1810 

LDA 

MAXTOR* 1 

AE 1 4 

S5CD 

1 820 

STA 

BUFPTR+ 1 

AE 1 6 

ADA604 

1 830 

LDA 

DIALF 

AE 1 9 

DGOB 

1840 

BNE 

CARND 

AE1B 

2G9AAG 

1 850 

JSR 

MSTATS 

AE 1 E 

DOG 6 

I860 

BNE 

CARND 

AE20 

8D6C05 

1 870 

STA 

PHONE 

AE23 

2G9DAG 

1 880 

JSR 

ONHOOK 



1 890 

« 

ft 


AE26 

2G57AB 

1 900 

CARND JSR OEDIT 

AE29 

A9BD 

1910 

LDA 

# < CMESF 

AE2B 

9D4803 

1920 

STA 

ICBLL, X 

AE2E 

A 900 

1 930 

LDA 

# > CMESF 

AE30 

9B4903 

1940 

STA 

ICBLH, X 

AE33 

A95G 

1950 

LDA 

# < MES 

AE35 

9D44G3 

1960 

STA 

ICBAL, X 

AE38 

A9B8 

1970 

LDA 

# >MES 

AE3A 

9D45G3 

1 980 

STA 

ICBAH, X 

AE3D 

A9GB 

1990 

LDA 

#*0B 

AE3F 

9D42G3 

2000 

STA 

ICCMD, X 

AE42 

2G56E4 

20 1 0 

JSR 

CIOV 

AE45 

3098 

2020 

BMI 

MENU 


BOOT? 


; POKMSK 

5 ENABLE BRK KEY 


CAPS LOCK 


NO INVERSE 


; PUT CHARS 


PRINT 1ST PART 


* 
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7 cr 
J*wJ 


AE47 

A90D 

2040 


LDA 

# < MESF 

AE49 

85 DO 

2050 


STA 

PRPTR 

AE4B 

A9B9 

2060 


LDA 

# >MESF 

AE4D 

85D1 

2070 


STA 

PRPTR+ 1 

AE4F 

AD8B04 

2080 


LDA 

DUPLF 

AE52 

DOOC 

2090 


BNE 

FI 

AE54 

A 90 4 

2 1 00 


LDA 

#4 

AE56 

8D9704 

2 1 1 0 


STA 

INVST 

AE59 

A908 

2 1 20 


LDA 

#8 

AE5B 

8D9804 

2 1 30 


STA 

INVEND 

AE5E 

DOOA 

2140 


BNE 

GO 

AE60 

A909 

2 1 50 

FI 

LDA 

#9 

AE62 

8D9704 

2160 


STA 

INVST 

AE65 

A90D 

2170 


LDA 

#13 

AE67 

8D9804 

2180 


STA 

INVEND 

AE6A 

204DAF 

2 1 90 

GO 

JSR 

PROPT 

AE6D 

A922 

2200 

HO 

LDA 

# <MESH 

AE6F 

85D0 

2210 


STA 

PRPTR 

AE7 1 

A9B9 

2220 


LDA 

# >MESH 

AE73 

85D1 

2230 


STA 

PRPTR+1 

AE75 

AD8804 

2240 


LDA 

TRANF 

AE78 

DOOC 

2250 


BNE 

HI 

AE7A 

A904 

2260 


LD A 

#4 

AE7C 

SD9704 

2270 


STA 

INVST 

AE7F 

A 909 

2280 

• 

LDA 

#9 

AES 1 

8D9S04 

2290 


STA 

INVEND 

AE84 

DOOA 

2300 


BNE 

10 

AES6 

A90A 

2310 

Hi 

LDA 

#10 

AESS 

8D9704 

2320 


STA 

INVST 

AE8B 

A91 1 

2330 


LDA 

#17 

AESD 

8D9804 

2340 


STA 

INVEND 

AE90 

204DAF 

■**“i ~T C /"i 

j.%. 

10 

JSR 

PROPT 

AE93 

A934 

2360 


LDA 

# < MES I 

AE95 

85D0 

2370 


STA 

PRPTR 

AE97 

A9B9 

2380 


LDA 

# >MES I 

AE99 

85D1 

2390 


STA 

PRPTR+ 1 

AE9B 

AD8904 

2400 


LDA 

B I NF 

AE9E 

DOOC 

2410 


BNE 

I 1 

AEAO 

A904 

2420 


LDA 

#4 

AEA2 

8D9704 

2430 


STA 

INVST 

AEA5 

A 90 6 

2440 


LDA 

#6 

AEA7 

SD9804 

2450 


STA 

INVEND 

AEAA 

DOOA 

2460 


BNE 

JO 

AEAC 

A907 

2470 

I 1 

LDA 

#7 

AEAE 

8D9704 

2480 


STA 

INVST 

AEB1 

A90E 

2490 


LDA 

#14 

AEB3 

8D9S04 

2500 


STA 

INVEND 

AEB6 

204DAF 

25 1 0 

JO 

JSR 

PROPT 

AEB9 

A94C 

«=% n 


LE>A 

# < MES J 

AEBB 

85D0 

2530 


STA 

PRPTR 

AEBD 

A9B9 

2540 


LDA 

# >MES J 

AEBF 

85 D 1 

2550 


STA 

PRPTR+1 

AECi 

AD8F04 

2560 


LDA 

COLFLG 

AEC4 

301 A 

257 0 


BMI 

U jL 

AEC6 

DOOC 

2580 


BNE 

Ji 

AEC8 

A904 

2590 


LDA 

#4 

AECA 

SD9704 

2600 


STA 

INVST 

AECD 

A906 

26 1 0 


LDA 

#6 


SO COLUMNS 
40 COLUMNS 


PAGE 
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AECF 

8D9804 

2620 

8T A 

INVEND 


AED2 

DO 16 

2630 

BNE 

KO 


AED4 

A907 

2640 

J 1 LDA 

#7 


AED6 

8D9704 

2650 

STA 

INVST 


AED9 

A 9 09 

2660 

LDA 

#9 


AEDB 

8D9804 

2670 

STA 

INVEND 


AEDE 

DOOA 

2680 

BNE 

KO 


AEEO 

A90A 

2690 

J 2 LDA 

#10 


AEE2 

8D9704 

2700 

STA 

INVST 


AEE5 

A912 

27 1 0 

LDA 

#18 


AEE7 

8D9804 

2720 

STA 

INVEND 


AEEA 

204DAF 

2730 

KO J SR 

PROPT 


AEED 

A 909 

2740 

LDA 

#9 


AEEF 

20B8BD 

2750 

J SR 

PLINE 


AEF2 

A 90 A 

2760 

LDA 

#10 


AEF4 

20BSBD 

2770 

JSR 

PLINE 


AEF7 

A90B 

2780 

LDA 

#11 


AEF9 

20E3BD 

2790 

JSR 

PL I NE 


AEFC 

A966 

2800 

LDA 

# < MESP 


AEFE 

85D0 

2810 

STA 

PRPTR 


AFOO 

A9B9 

2820 

LDA 

# >MESP 


AF02 

85D1 

2830 

STA 

PRPTR+1 


AFC 4 

ADBA04 

2840 

LDA 

PARFLG 


AF07 

301 A 

2850 

Blil 

K2 ; EVEN PARITY 


AF09 

FOOC 

2860 

BEQ 

K 1 ; NO 


AFOB 

A 9 07 

2870 

LDA 

#7 ; ELSE ODD 


AFOD 

8D9704 

2880 

STA 

I NVST 


AF 1 0 

A 90 A 

2890 

LDA 

#10 


AF 12 

8D9804 

2900 

STA 

INVEND 


AF 1 5 

DO 1 6 

2910 

BNE 

TO 


AF 1 7 

A 90 4 

2920 

K 1 LDA 

#4 


AF 1 9 

8D9704 

2930 

STA 

INVST 


AF 1 C 

A 906 

2940 

LDA 

#6 


AF 1 E 

8D9804 

2950 

STA 

I NVEND 


AF2 1 

DOOA 

2960 

BNE 

TO 


AF23 

A90B 

2970 

K2 LDA 

#11 


AF25 

8D9704 

2980 

STA 

INVST 


AF2B 

A90F 

2990 

LDA 

#15 


AF2A 

8D9804 

3000 

STA 

INVEND 


AF2D 

204DAF 

30 1 0 

TO JSR 

F'ROPT 


AF30 

A90C 

3020 

LDA 

#12 


AF32 

20B8BD 

3030 

JSR 

PLINE 


AF35 

A90D 

3040 

LDA 

#13 


AF37 

20B8BD 

3050 

JSR 

PL I NE 


AF3A 

2039B1 

3060 

JSR 

BUFFSZ ;? BUFFR SIZE 


AF3D 

2 OB 1 B5 

3070 

JSR 

BUFUSED 


AF40 

A90E 

3080 

LDA 

#14 


AF42 

20B8BD 

3090 

JSR 

PL I NE 




3 1 00 

n 

n 





3 1 1 0 

; GET CHOICE FROM KEYBOARD 




3 1 20 

M 

n 



AF45 

2002BD 

3 1 30 

GCHCE JSR GETKEY 


1 AF4S 

1032 

3 1 40 

BPL 

GCHOK 


AF4A 

4CDFAD 

3150 

MENU! JMP MENU 




3 1 60 

•1 





3 1 70 

; PRINT 

OPT I ONS SUBROUT I NE 




3 1 80 

; PRPTR 

= START OF MESSAGE 




3190 

«• 

n 




PAGE 37 


Ds MENU. SRC 


AF4D 

A OOO 

3200 

PROPT LDY #0 

AF4F 

98 

3210 

INVLP TV A 

AF50 

48 

3220 


PHA 


AF51 

A 9 00 

3230 


L.DA 

#0 

AF53 

9D4803 

3240 


STA 

ICBLL, X 

AF56 

9D4903 

~r f ~'. cr 

•«.' *— J V 


STA 

ICBLH, X 

AF59 

A90B 

3260 


LDA 

#$0B 

AF5B 

9D4203 

3270 


STA 

ICCMD, X 

AF5E 

B 1 DO 

3280 


LDA 

< PRPTR ) , Y 

AF60 

48 

3290 


PHA 


AF6 1 

CC9704 

3300 


CPY 

INVST 

AF64 

3007 

33 1 0 


BMI 

NO I NV 

AF66 

CC9804 



CPY 

INVEND 

AF69 

1 002 

* ■* i* ***1’ M, i' ***■ 

•«.» V 


BPL 

NO I NV 

AF6B 

0980 

3340 


ORA 

#$80 ; MAKE INVERSE 

AF6D 

2056E4 

3350 

NO I NV JSR CIOV ; PR I NT IT 

AF70 

68 

3360 


PLA 


AF7 1 

C99B 

3370 


CMP 

# 1 55 

AF73 

F 005 

3380 


BEQ 

INVDONE 

AF75 

68 

3390 


PLA 


AF76 

AS 

3400 


TAY 


AF77 

C8 

3410 


I NY 


AF78 

D0D5 

3420 


BNE 

INVLP 

AF7A 

68 

3430 

INVDONE 

PLA 

AF7B 

60 

3440 


RTS 




3450 

; EXECUTE 

: CHOICE 



3 4 6 0 

II 



AF7C 


3470 

6CH0K 


AF7C 

C94 i 

3480 


CMP 

#’ A 

AF7E 

D003 

3490 


BNE 

CB 

AF80 

4C59B0 

3500 


JMP 

DIRECT 

AF83 

C942 

3510 

CB 

CMP 

# •’ B 

AF85 

DO 03 

3520 


BNE 

CC 

AF87 

4CD9B5 

3530 


JMP 

DIRDISK 

AF8A 

C943 

3540 

CC 

CMP 

#’ C 

AF8C 

DUO 3 

3550 


BNE 

CD 

AF8E 

4C30B2 

3560 


JMP 

COPYBF 

AF9 1 

C944 

3570 

CD 

CMP 

# ? D 

AF93 

DO 03 

3580 


BNE 

CE 

AF95 

4CE8B1 

3590 


JMP 

DELBF 

AF98 

C945 

3600 

CE 

CMP 

# ? E 

AF9A 

D003 

36 1 0 


BNE 

CF 

AF9C 

4C85AB 

3620 


JMP 

NEWBUFF 

AF9F 

C946 

3630 

CF 

CMP 

#•• F 

AFA1 

DO OB 

3640 


BNE 

CHI 

AFA3 

A 90 1 

3650 


LDA 

#1 

AFA5 

4DSB04 

3660 


EOF: 

DUPLF 

AFA8 

8D8B04 

3670 


STA 

DUPLF 

AFAB 

4CDFAD 

3680 


JMP 

MENU 

AFAE 

C948 

3690 

CHI 

CMP 

# ■’ H 

AFBO 

DOOE 

3700 


BNE 

Cl 

AFB2 

A 901 

3710 


LDA 

#1 

AFB4 

4D8804 

3720 


EOR 

TRANF 

AFB7 

8D8804 

3730 


STA 

TRANF 

AFBA 

8D8A04 

3740 


STA 

BIT8F 

AFBD 

4CDFAD 

3750 

JMEN JMF 

* MENU 

AFCO 

C949 

3760 

Cl 

CMP 

I 

AFC2 

DOOB 

3770 


BNE 

CJ 
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AFC4 

A90 1 

3780 


LDA #1 

AFC6 

4D8904 

3790 


EOR BINF 

AFC9 

8D8904 

3800 


STA BINF 

AFCC 

4CDFAD 

38 1 0 


JMP MENU 

AFCF 

C94A 

3820 

CJ 

CMP # !, J 

AFD1 

DO 3D 

3830 


BNE CK 

AFD3 

ADSF04 

3840 


LDA C0LFL6 

AFD6 

30 1 7 

3850 


BMI BMENU ; ALREADY BOOTED 

AFD8 

DO 18 

3860 


BNE Z80C0L 

AFDA 

4901 

3870 


EOR #1 

AFDC 

8D8F04 

3880 


STA COLFLG ;=1 

AFDF 

A 9 00 

3890 


LDA #0 

AFEi 

ncrcrn 
O vJ _J x_ 

3900 


STA $52 

AFE3 

4CDFAD 

3910 


JMP MENU 

AFE6 

A902 

3920 

Z38C0L LDA #2 

AFE8 

8552 

3930 


STA $52 

AFEA 

A 900 

3940 


LDA #0 

AFEC 

8D8F04 

3950 


STA COLFLG ; =0 

AFEF 

4CDFAD 

3960 

BMENU JMP MENU 

AFF2 

A 5 09 

3970 

Z80C0L LDA $09 

AFF4 

FO 1 7 

3980 


BEQ N00PN1 

AFF6 

A9AE 

3990 


LDA # < M80 ; GET MVIEW 

AFFS 

8DA804 

4000 


STA RFNAME 

AFFB 

A9BD 

40 1 0 


LDA # >M80 

AFFD 

SDA904 

4020 


STA RFNAME+1 

BO 00 

2000 AO 

4030 


JSR GETHDR 

BOO 3 

3008 

4040 


BMI N0OPN 1 

BOOS 

A 980 

4050 


LDA #$30 

BOO 7 

8D8F04 

4060 


STA COLFLG 

BOO A 

4C81AD 

4070 


JMP RESTRT ; RESET MTOP,BUFS 

BOOD 

4CE6AF 

4080 

N00PN1 JMP Z38C0L 

BO i 0 

C94B 

4090 

CK 

CMP # ? K 

BO 1 2 

D003 

4 1 00 


BNE CL 

BO 14 

4C3CB7 

4110 


JMP D I RPR 

BO 1 7 

C94C 

4 1 20 

CL 

CMP # ? L 

BO 1 9 

D003 

4 1 30 


BNE CM 

BO IB 

4CABB3 

4 1 40 


JMP LOADBF 

BO 1 E 

C94D 

4150 

CM 

CMP # ? M 

BO 20 

DO 03 

4 1 60 


BNE CP 

BO 2 2 

4C7EBA 

4170 


JMP DIAL 

BO 25 

C950 

4 1 SO 

CP 

CMP #”P 

B027 

DO 1 F 

4 1 90 


BNE CT 

BO 29 

A 9 00 

4200 


LDA #0 

B02B 

8D8804 

4210 


STA TRANF 

B02E 

8D8A04 

4220 


STA BIT8F 

BO 31 

ADBA04 

4230 


LDA PARFLG 

BO 34 

300 A 

4240 


BMI CPO 

B036 

F004 

4250 


BEQ CPI 

B038 

A980 

4260 


LDA #$80 

BO 3 A 

DO 06 

4270 


BNE CPSTR 

B03C 

A 901 

4280 

CPI 

LDA #1 

B03E 

D002 

4290 


BNE CPSTR 

BO 40 

A 900 

4300 

CPO 

LDA #0 

BO 4 2 

8DBA04 

43 1 0 

CF'STR STA PARFLG 

BO 45 

4CDFAD 

4320 


JMP MENU 

B048 

C954 

4330 

CT 

CMP #’T 

B O 4 A 

F007 

4340 


BEQ TERM 1 

B04C 

C956 

4350 


CMP # ? V 
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B04E 

F006 

4360 

BED 

CHBAUD 

BO 50 

4C45AF 

4370 

JliP 

GCHCE 

BO 53 

4C02B5 

4380 

TERM1 JMF* TERM2 

B056 

4C66B7 

4390 

CHBAUD JMP VBAUD 



4400 

m 

•» 




441 0 

; D I SK DIRECTORY 



4420 

S3 


BO 5 9 

209 1 AO 

4430 

DIRECT J SR CLOSE ; CLOSE MODEM 

B05C 

2057 AB 

4440 

J SR 

OEDIT 

B05F 

A230 

4450 

LDX 

#$30 ;IOCB #3 

B061 

2029AB 

4460 

J SR 

CIOCB 

B064 

A 903 

4470 

LDA 

# COPEN ; OPEN DIR 

B066 

9D4203 

4480 

STA 

I CCMD , X 

B069 

A906 

4490 

LDA 

#6 

B06B 

9D4A03 

4500 

STA 

I CAX 1 , X 

B06E 

A 900 

45 1 0 

LDA 

#0 

BO 70 

9D4B03 

4520 

STA 

ICAX2, X 

BO 73 

A97S 

4530 

LDA 

# < D I SKM 

BO 7 5 

9D4403 

4540 

STA 

ICBAL, X 

B07S 

A9BA 

4550 

LDA 

# >D I SKM 

BO 7 A 

9D4503 

4560 

STA 

ICBAH, X 

B07D 

2056E4 

4570 

JSR 

CIOV ; OPEN IT!! 

BO 80 

3039 

4580 

BMI 

DIRERR 

B082 

A230 

4590 

PD I R LDX #$30 

BO 8 4 

A996 

4600 

LDA 

# < BUFF 

B086 

9D4403 

4610 

STA 

ICBAL, X 

BO 8 9 

A 900 

4620 

LDA 

# >BUFF 

B08B 

9D4503 

4630 

STA 

ICBAHj, X 

BOSE 

A905 

4640 

LDA 

#CGETR ; GET RECORD 

BO 90 

9D4203 

4650 

STA 

I CCMD 5 X 

BO 9 3 

A928 

4660 

LDA 

#40 : MAX CHR 

B095 

9D4803 

4670 

STA 

ICBLL, X 

BO 9 8 

2056E4 

46S0 

JSR 

C I OV 

B09B 

30 1 E 

4690 

BMI 

DIRERR ; END OF DIRECT 



4700 

; PRINT 

IT ON THE SCREEN 

B09D 

A240 

47 1 0 

LDX 

#$40 5 EDITOR 

B09F 

A 900 

4720 

LDA 

# >BUFF 

B0A1 

9D4503 

4730 

STA 

ICBAH, X 

BOA 4 

A 996 

4740 

LDA 

# CBUFF 

BO A 6 

9D4403 

4750 

STA 

ICBAL ? X 

BOA 9 

A928 

4760 

LDA 

#40 

BOAB 

9D4803 

4770 

STA 

ICBL.L, X 

BOAE 

A 909 

4780 

LDA 

#CF’UTR 5 PUT RECORD 

BOBO 

9D4203 

4790 

STA 

I CCMD , X 

BOB 3 

2056E4 

4800 

JSR 

CIOV 

B0B6 

3003 

4810 

BMI 

DIRERR 

BOBS 

4C82B0 

4820 

JMP 

PD I R 

BOBB 

CO 03 

4830 

DIRERR i 

SPY #$03 

BOBD 

F007 

4840 

BEG 

DIRDONE 

BOBF 

COS 8 

4850 

CRY 

#$88 

BOC 1 

F003 

4860 

BEG 

DIRDONE 

B0C3 

20ECB0 

4870 

JSR 

DERROR 

B0C6 

A 230 

4880 

DIRDONE 

LDX #$30 

BOC 8 

2029 AB 

4890 

JSR 

CIOCB 

BOCB 

208EA0 

4900 

JSR 

OPEN ; OPEN MODEM 

BOCE 

20D4B0 

4910 

JSR 

WAITKEY 

BOD 1 

4CDFAD 

4920 

JMP 

MENU 


4930 ; 7MESSAGE AND WAIT FOR KEY 
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B0D4 

48 

4940 

WA I TKEY 

PHA 


BODS 

8A 

4950 

TX A 



B0D6 

48 

4960 

PH A 



B0D7 

98 

4970 

TYA 



BODS 

48 

4980 

PHA 



B0D9 

AS 19 

4990 

LDA 

#25 ; CR 


BODB 

20B8BD 

5000 

3 SR 

PL I NE 


BODE 

A 9 OF 

50 1 0 

LDA 

#15 


BOEO 

20BSBD 

5020 

J SR 

PL I NE 


B0E3 

2002BD 

5030 

JSR 

6ETKEY 


B0E6 

68 

5040 

PLA 



B0E7 

A8 

5050 

TAY 



BOES 

68 

5060 

PLA 



B0E9 

A A 

5070 

TAX 



BOEA 

68 

5080 

PLA 



BOEB 

60 

5090 

RTS 





5 1 00 

M 

5 



BOEC 

48 

5 1 1 0 

DERROR PHA 


BOED 

8A 

5120 

TXA 



BOEE 

48 

5 1 30 

PHA 



ra n cr cr 
o c. n 

98 

5 1 40 

TYA 



BOFO 

48 

5 1 50 

PHA 



BOF i 

A 2 40 

5160 

LDX 

#$40 


B0F3 

A996 

5 1 70 

LDA 

# CMERROR ; MESSAGE 


B0F5 

9D4403 

5 1 80 

ST A 

ICBAL, X 


B0F8 

A9B9 

5190 

LDA 

# >MERROR 


BOFA 

9D4503 

5200 

STA 

ICBAH, X 


BOFD 

A 9 OB 

52 1 0 

LDA 

#$0B ; PUT CHAR 


BOFF 

9D4203 

5220 

STA 

ICCMD, X 


B 1 02 

A91 1 

5230 

LDA 

#17 


B 1 04 

9D4803 

5240 

STA 

ICBLL, X 


B 1 07 

A 900 

5250 

LDA 

#0 


B 1 09 

9D4903 

5260 

STA 

ICBLH, X 


B 1 OC 

2056E4 

5270 

JSR 

C 1 0 V 


B i OF 

68 

5280 

PLA 



B 1 1 0 

85D4 

5290 

STA 

FRO 


B1 12 

A 900 

5300 

LDA 

#0 


B1 14 

85D5 

53 1 0 

STA 

FRO+1 


B1 16 

20AAD9 

5320 

JSR 

IFP 


Bi 19 

20E6DS 

5330 

JSR 

FASC ? ERROR# TO ASCII 


B 1 1C 

20BCB1 

5340 

JSR 

PASC 


Bl IF 

A 240 

5350 

LDX 

#$40 


B121 

A 9 00 

5360 

LDA 

#0 


B 1 23 

9D4S03 

5370 

STA 

ICBLL, X 


B 1 26 

A90B 

5380 

LDA 

#$0B 


B 1 28 

9D4203 

5390 

STA 

ICCMD, X 


B12B 

A99B 

5400 

LDA 

#155 

crov ; CR 


B 1 2D 

2056E4 

54 1 0 

JSR 


B 1 30 

A 9 00 

5420 

LDA 

#0 


B 1 32 

9D4803 

5430 

STA 

ICBLL, X 


B 1 35 

68 

5440 

PLA 



B 1 36 

AA 

5450 

TAX 



B 1 37 

68 

5460 

PLA 



B 1 38 

60 

5470 

RTS 





5480 

SS 

ff 





5490 

; PRINT BUFFER SIZE ON SCREEN 




5500 

M 

5 



B 1 39 


55 1 0 

BUFFS Z 
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B 1 39 

A 5 80 

5520 

LDA 

BUFFER ; BOTTOM OF BUFF 

B13B 

S5D4 

5530 

STA 

FRO 

B i 3D 

ASS 1 

5540 

LDA 

BUFFER* 1 

B13F 

85D5 

5550 

STA 

FRO* 1 

B 1 4 1 

20AAD9 

5560 

JSR 

IFF ; CHANGE TO FP 

B 1 44 

20B6DD 

5570 

JSR 

FMOVE 5 FRO TO FR 1 

B 1 47 

ASCC 

5580 

LDA 

BUFPTR 

B 1 49 

85D4 

5590 

STA 

FRO 

B14B 

A5CD 

5600 

LDA 

BUFPTR* 1 

B14D 

85D5 

56 1 0 

STA 

FRO+i 

B14F 

20AAD9 

5620 

JSR 

IFF 



5630 

3 SUB AND 

PRINT 

B 1 52 

A 240 

5640 

LDX 

#$40 

B 1 54 

A90B 

5650 

LDA 

#$0B ; PUT CHARS 

B 1 56 

9D4203 

5660 

STA 

ICCMD, X 

B 1 5? 

A 900 

5670 

LDA 

#0 

BiSB 

9D4903 

5680 

STA 

ICBLH, X 

B15E 

9D4803 

5690 

STA 

ICBLL, X 

B161 

A99B 

5700 

LDA 

#155 ; PRINT CR. 

B 1 63 

2056E4 

5710 

JSR 

C I OV 

B 1 66 

20 BOB 1 

5720 

JSR 

SUBTR ;? USED BYTES 

B 1 69 

A240 

5730 

LDX 

#$40 

B16B 

A97D 

5740 

LDA 

# < BMES 1 

B16D 

9D4403 

5750 

STA 

ICBAL, X 

B 1 70 

A9B9 

5760 

LDA 

# >BMES 1 

B 1 72 

9D4S03 

5770 

STA 

ICBAH, X 

B 1 75 

A90D 

5780 

LDA 

#13 ; BMES 1 LEN 

B 1 77 

9D4803 

5790 

STA 

ICBLL, X 

B17A 

2056E4 

5800 

JSR 

C I OV 



58 1 0 

; PRINT UNUSED MEMOR 

B 1 7D 

ASCC 

5820 

LDA 

BUFPTR 

B17F 

S5D4 

5830 

STA 

FRO 

B1S1 

A5CD 

5840 

LDA 

BUFPTR* 1 

B 1 S3 

SSD5 

5850 

STA 

FRO-*- 1 

B185 

20AAD9 

5860 

JSR 

IFF ; CHANGE TO FP 

BISS 

20B6DD 

5870 

JSR 

FMOVE 5 FRO TO FR1 

BISB 

ADS004 

5880 

LDA 

TOF'BUF ? TOP OF BUFFER 

B 1 oE 

85D4 

5890 

STA 

FRO 

B 1 90 

ADS 104 

5900 

LDA 

TOPBUF+ 1 

B 1 93 

S5D5 

5910 

STA 

FRO+i 

B 1 95 

20AAD9 

5920 

JSR 

IFF 

B 1 98 

20B0B1 

5930 

JSR 

SUBTR 5 ? IT 

B19B 

A 240 

5940 

LDX 

#$40 

B19D 

A9S A 

5950 

LDA 

# < BMES 2 

B19F 

9D4403 

5960 

STA 

ICBAL, X 

B1A2 

A9B9 

5970 

LDA 

# > BMES 2 

B1A4 

9D4503 

5980 

STA 

ICBAH, X 

B1A7 

A90C 

5990 

LDA 

#12 ; MES2 LENGTH 

B1A9 

9D4S03 

6000 

STA 

ICBLL, X 

BiAC 

20S6E4 

60 1 0 

JSR 

CI0V 

B1AF 

60 

6020 

RTS 

5 BACK TO MENU 



6030 

a 

n 


B 1 BO 

2060DA 

6040 

SUBTR JSR FSUB ; FRO—FRO— FR1 

B1B3 

20E6DS 

6050 

JSR 

FASC ; FP TO ASCII 

B 1 B 6 

A240 

6060 

LDX 

#$40 

BIBS 

20BCB1 

6070 

JSR 

PA SC 

BIBB 

60 

6080 

RTS 


B1BC 

A 2 40 

6 O 9 U 

F’ASC LD* 

: #$4o 
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B 1 BE 

A OFF 

6 1 00 

LDY 

#$FF s INDEX 

B 1 CO 

CS 

6110 

FPRINT I NY 

B1CI 

B98005 

6 1 20 

EDA 

$0580 , Y 

B1C4 

1 OF A 

6130 

BF*L 

FPRINT 

B1C6 

297F 

6140 

AND 

#$7F 

B1C8 

998005 

6150 

STA 

$0580, Y 

B 1 CB 

C8 

6160 

I NY 


B1CC 

98 

6 1 70 

TYA 


BiCD 

9D4803 

6 1 80 

STA 

ICBLL, X 

B i DO 

A 9 00 

6190 

LDA 

#0 

B1D2 

9 D 49 03 

6200 

STA 

ICBLHh X 

BIDS 

A980 

62 1 0 

LDA 

#$80 

B i D7 

9D4403 

6220 

STA 

ICBAL, X 

B1DA 

A905 

6230 

LDA 

#$05 

B 1 DC 

9D4503 

6 2 4 O 

STA 

ICBAH, X 

BiDF 

A 9 OB 

6250 

LDA 

#$0B ; PUT CHARS 

B1E1 

9D4203 

6260 

STA 

I CCMD , X 

B1E4 

2056E4 

6270 

JSR 

CIOV ; PRINT IT! 

B1E7 

60 

6280 

RTS 




6290 

* 

!■ 


B1E8 

2057AB 

6300 

DELBF JSR OEDIT 

B1EB 

A 90 4 

63 1 0 

LDA 

#4 

B 1 ED 

20B8BD 

632 U 

JSR 

PL I ME 

BiFO 

203 2 AB 

6330 

JSR 

OKEYB 

B1F3 

A907 

6340 

GCHCEl LDA #*07 

B1F5 

9D4203 

6350 

STA 

I CCMD, X 

BiFS 

2056E4 

6360 

JSR 

C I OV 

BiFB 

30 F 6 

6370 

BN I 

GCHCEl 

B1FD 

C959 

6380 

CMP 

# ? Y 

BIFF 

F 003 

6390 

BEQ 

DELYES 

B201 

4CDFAD 

6400 

JMP 

MENU 

B204 

ADE702 

6410 

DELYES LDA *02E7 ; MEMLO 

B207 

85CC 

6420 

STA 

BUFPTR 

B209 

8D8604 

6430 

STA 

MAX TOP 

B20C 

8D8204 

6 4 4 0 

STA 

BOTBUF 

B20F 

8580 

6450 

STA 

BUFFER 

B21 1 

8582 

6460 

STA 

BUFFER+2 

B213 

ADE802 

6470 

LDA 

$02E8 ; MEMLO+ 1 

B216 

85CD 

6480 

STA 

BUFPTR+- 1 

B218 

8D8704 

6490 

STA 

MAXTOP-*- 1 

B21B 

8D8304 

6500 

STA 

BOTBUF+1 

B21E 

8581 

65 1 0 

STA 

BUFFER-*- 1 

B220 

8583 

6520 

STA 

BUFFER-*- 3 

B222 

A 9 00 

6530 

LDA 

#0 

B224 

8DA504 

6540 

STA 

BUFFNUM 

B227 

8D9404 

6550 

STA 

FULLF 

B22A 

8D8D04 

6560 

STA 

SAVMOD 

B22D 

4CDFAD 

6570 

JMP 

MENU 



6580 

M 

n 




6590 

; COPY BUFFER TO DEVICE 

B230 

A 9 00 

6600 

COF’YBF 

LDA #0 

B232 

8D8C04 

66 1 0 

STA 

CASFLG 

r_ -n "T nr 

D •«' --J 

SD8D04 

6620 

STA 

SAVMOD 

B238 

8D8E04 

6630 

STA 

SCRFLG 

B23B 

8D9104 

6 6 4 0 

STA 

F’R'FLG 

B23E 

A 2 30 

6650 

LDX 

#$30 

B240 

9D4B03 

6660 

STA 

ICAX2, X 

B243 

A240 

6670 

LDX 

#$40 


Ds MENU. SRC 
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8245 

2057 A 8 

6680 

J SR 

□EDIT 


8248 

A9A8 

6690 

LDA 

# < MC0PY 


824A 

904403 

6700 

STA 

ICBAL, X 


824D 

A989 

67 1 0 

LDA 

# >MC0PY 


824F 

9D4503 

6720 

STA 

ICBAH, X 


8252 

A9CF 

6730 

LDA 

# < CMC0PY1-MCDPYD 

8254 

9D4S03 

6740 

STA 

ICBLL, X 


8257 

A 900 

6750 

LDA 

# >CMC0PY1~MC0PYD 

8259 

9D4903 

6760 

STA 

ICBLH, X 


B25C 

A90B 

6770 

LDA 

#$•08 

; PUT CHARS 

825E 

9D4203 

6780 

STA 

ICCMD , X 


8261 

2056E4 

6790 

JSR 

C I ov 

; PRINT IT! 

8264 

A 905 

6800 

LDA 

#$05 

; GET REC 

8266 

9D4203 

6810 

STA 

ICCMD, X 


8269 

A913 

6820 

LDA 

#19 


8268 

9D4803 

6830 

STA 

ICBLL, X 


B26E 

A 900 

6840 

LDA 

#0 


8270 

90 4903 

6850 

STA 

ICBLH, X 


8273 

A996 

6860 

LDA 

# < BUFF 

; STORE 

Tj ~y cr 

904 4 03 

6870 

STA 

I CB AL , X 

; FILENAME f 

8278 

A 900 

6880 

LDA 

# >BUFF 

; BUFF 

B27A 

904503 

6890 

STA 

ICBAH, X 


827D 

2056E4 

6900 

JSR 

CIOV 

q GET RECORI 

8280 

3026 

69 1 0 

8MI 

NOFN 


r~j “i r*> “i 
JD x. O jL 

A596 

6920 

LDA 

BUFF 

; 1 ST CHAR 

8284 

C943 

6930 

CMP 

# : ‘ C 


8286 

F023 

6940 

BEG 

CPYCAS 


8288 

C944 

6950 

CMP 

# ? D 


828 A 

F031 

6960 

BEG 

CPYOF* 1 


B28C 

C950 

6970 

CMP 

# ? P 


B28E 

F02D 

6980 

BEG 

CPYOF* 1 


8290 

C953 

6990 

CMP 

# ? S 


8292 

0000 

7000 

BNE 

□PARND 


8294 

A08F04 

70 1 0 

LDA 

COLFLG 


8297 

C980 

7020 

CMP 

#$80 

,-OPEN EDITC 

8299 

0022 

7030 

BNE 

CPY0P1 

; IN 80 COL 

8298 

A945 

7040 

LDA 

# ? E 

5 INSTEAD OF 

829D 

8596 

7050 

STA 

BUFF 

; SCREEN 

B29F 

00 1C 

7060 

BNE 

CPY0P1 


82 A 1 

C940 

7070 

□PARND CMP #’M 


82A3 

0003 

7080 

BNE 

NOFN 


82A5 

4C7483 

7090 

JMP 

CP Y MOD 


82A8 

4CDFA0 

7 1 00 

NOFN JMP MENU 


82A8 

A90 1 

7110 

CP YC AS LDA #1 


82AD 

808C04 

7 1 20 

STA 

CASFLG 


8280 

A598 

7130 

LDA 

BUFF +2 


it? jL O uL 

C953 

7 1 40 

CMP 

S 

5 SHORT IRG 

8284 

0007 

7150 

BNE 

CPYOF* 1 


8286 

A 980 

7160 

LDA 

#$80 


8288 

A 230 

7170 

LDX 

#$30 


82BA 

904803 

7 1 80 

STA 

TPAy^ Y 

X r 1 A if A 


B28D 

203185 

7 1 90 

CPY0P 1 JSR BUFF? 


82C0 

20E7AB 

7200 

JSR 

8 INDEX 


82C3 

2091 AO 

7210 

JSR 

CLOSE 


82C6 

209683 

7220 

JSR 

CPYOPN 


B2C9 

A 2 30 

7230 

LDX 

#$30 


O x. w XL 1 

A 908 

7240 

LDA 

#8 

5 WRITE 

B2CD 

9D4A03 

7250 

STA 

I CAX 1 , X 
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B2D0 

2056E4 

7260 

J SR 

CIOV 

B2D3 

1 0 1 4 

7270 

BPL 

CPYOK 1 

B2D5 

98 

7280 

TYA 


B2D6 

48 

7290 

PHA 


B2D7 

2029AB 

7300 

J SR 

CIOCB 

B2DA 

20SEA0 

7310 

J SR 

OPEN 

B2DD 

A240 

7320 

LDX 

#$40 

B2DF 

68 

7330 

PLA 


B2E0 

20ECB0 

7340 

J SR 

DERROR 

B2E3 

20D4B0 

7350 

JSR 

WAITKEY 

B2E6 

4C30B2 

7360 

JMP 

COPYBF 

B2E? 

A 900 

7370 

CPYOK 1 I 

-DA #cTj 

B2EB 

8DC602 

7380 

STA 

$02C6 f — 

B2EE 

8DC802 

7390 

STA 

$02C8 1 

B2F i 

A908 

7400 

LDA 

#8 

B2F3 

8DC502 

7410 

STA 

$02C5 

B2F6 

AD8204 

7420 

LDA 

BOTBUF 

B2F9 

85CE 

7430 

STA 

PTR 

B2FB 

ADS 30 4 

7440 

LDA 

BOTBUF* 1 

B2FE 

85CF 

7450 

STA 

PTR* 1 

B300 

A 90 1 

7460 

LDA 

#1 

B302 

8DFE02 

7470 

STA 

$02FE 



7480 

it 

!* 


B305 

A 000 

7490 

CPYLOOP 

LDY #0 

B307 

BICE 

7500 

LDA 

(PTR) , Y 

B309 

48 

7510 

PHA 


B30A 

A5CF 

7520 

LDA 

PTR* 1 

B30C 

C5CD 

7530 

CMP 

BUFPTR* 1 

B30E 

D009 

7540 

BNE 

PTRINC 

B3 i 0 

A5CE 

7550 

LDA 

PTR 

B312 

C5CC 

7560 

CMP 

BUFPTR 

B314 

DO 03 

7570 

BNE 

PTRINC 

B316 

4C42B3 

7580 

JMP 

CPYDONE 

B319 

E6CE 

7590 

ptrinc : 

INC PTR 

B31B 

D002 

7600 

BNE 

PTROK 

B31D 

E6CF 

76 1 0 

INC 

PTR* 1 

B31F 

A 2 30 

7620 

PTROK LDX #$30 

B321 

A 900 

7630 

LDA 

#0 

B323 

9D4803 

7640 

STA 

ICBLL , X 

B326 

9D4903 

7650 

STA 

ICBLH, X 

B329 

A90B 

7660 

LDA 

#$0B 

B32B 

9D4203 

7670 

STA 

I CCMD , X 

B32E 

68 

7680 

PLA 


DTOC 
•-« xi i 

2056E4 

7690 

JSR 

CIOV 

mm •••*■ "jr /***. 

JD •«!* O 4^1 

1 0D 1 

7700 

BPL 

CPYLOOP 

B334 

A 900 

77 1 0 

LDA 

#0 

B336 

SDFE02 

7720 

STA 

$02FE 

B339 

2057 AB 

7730 

JSR 

OEDIT 

n-r-rp 
O •_* w 

20ECB0 

7740 

JSR 

DERROR 

B33F 

4C43B3 

7750 

JMP 

CPYDN1 

B342 

68 

7760 

CPYDONE 

PLA 

B343 

A 9 00 

7770 

CF'YDNl LDA #0 

B345 

8DFE02 

7780 

STA 

$02 FE 

B348 

A 2 30 

7790 

LDX 

#$30 

B34A 

A 000 

7800 

LDY 

#0 

B34C 

B99600 

7810 

LDA 

BUFF, Y 

B34F 

C950 

7820 

CMP 

# ? P 

B351 

D00D 

7830 

BNE 

N0CR1 


OPEN IT 


OPEN ERROR 





CHANGE COLORS 


DEVICE 


h PUT CHAR 


8 * 
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B353 

A 9 00 

7840 

LDA 

#o 

B355 

9D4803 

7850 

8TA 

ICBLL, X 

B358 

9D4903 

7860 

STA 

ICBLH, X 

B35B 

A99B 

7870 

LDA 

# 1 55 

B35D 

2056E4 

7880 

J SR 

C 1 0 V 

B360 

A230 

7890 

N0CR1 LDX #$30 

B362 

2029AB 

7900 

JSR 

CIOCB 

B365 

209 i AO 

79 1 0 

J SR 

CLOSE 

B368 

208EA0 

7920 

JSR 

OPEN 

B36B 

20D4B0 

7930 

JSR 

WAITKEY 

B36E 

2057 AB 

7940 

JSR 

OEDIT 

B37 1 

4CDFAD 

7950 

JMP 

MENU 

B374 

205 7 AB 

7960 

CPYMOD JSR OEDIT 

B377 

A9 1 0 

7970 

LDA 

#16 

B379 

20B8BD 

7980 

JSR 

PL I ME 

B37C 

A91 1 

7990 

LDA 

#17 

B37E 

20B8BD 

8000 

JSR 

F'LINE 

B38 1 

203 1B5 

80 i 0 

MDMOK JSR BUFF? 

B384 

AD8204 

8020 

LDA 

BOTBUF 

B3S7 

85D2 

8030 

STA 

SENPTR 

B3S9 

AD8304 

8040 

LDA 

BOTBUF+1 

BZBC 

S5D3 

8050 

STA 

SENPTR+1 

B38E 

A 90 1 

8060 

LDA 

#1 

B390 

8D8D04 

8070 

STA 

SAVMOD 

B393 

4C18B5 

8080 

JMP 

TERM3 



8090 

N 

fl 


B396 

A 230 

8 1 00 

CPYOPN LDX #$30 

B39S 

2029AB 

8110 

JSR 

CIOCB 

B39B 

A 90 3 

8120 

LDA 

#$03 

B39D 

9D4203 

8 1 30 

STA 

ICCMD ? X 

B3A0 

A996 

8 1 40 

LDA 

# < BUFF 

B3A2 

9D4403 

8150 

STA 

ICBAL, X 

B3A5 

A 9 00 

8 1 60 

LDA 

# >BU FF 

B3A7 

9B4503 

8170 

STA 

ICBAh-L X 

B3AA 

60 

8 1 80 

RTS 




8190 

» 

!• 


B3AB 

A 900 

8200 

LOADBF LDA #0 

B3AD 

8D8C04 

8210 

STA 

CASFLG 

B3B0 

A 2 30 

8220 

LDX 

#$30 

£> •_< JD x_ 

9D4B03 

8230 

STA 

ICAX2, X 

B3B5 

2057 AB 

8240 

JSR 

OEDIT 

B3B8 

A912 

8250 

LDA 

#18 

B3BA 

20B8BD 

8260 

JSR 

PL I NE 

B3BB 

A913 

8270 

LDA 

#19 

B3BF 

20B8BD 

8280 

JSR 

PLINE 

B3C2 

A9E8 

8290 

LDA 

# CMLOAD 

B3C4 

9D4403 

8300 

STA 

I CBAL , X 

B3C7 

A9B9 * 

83 1 0 

LDA 

# >MLOAD 

B3C9 

9D4503 

8320 

STA 

ICBAH, X 

B3CC 

A93E 

8330 

LDA 

# CCMLOA 

B3CE 

9D4803 

8340 

STA 

ICBLL , X 

B3D i 

A90B 

8350 

LDA 

#CF*UTC 

B3D3 

9D4203 

8360 

STA 

ICCMD, X 

B3D6 

2056E4 

8370 

JSR 

CIOV 

B3D9 

A916 

8380 

LDA 

IT a— 4m. 

B3DB 

20B8BD 

8390 

JSR 

F*L I NE 

B3DE 

A965 

8400 

LDA 

# CMLOAD 

B3E0 

9D4403 

8410 

STA 

I CBAL a X 


; CLOSE DEVICE 


CLOSE 

OPEN 


IT 


«S 
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B3E3 

A9BA 

8420 

LDA 

# >Ml_QAD4 

B3E5 

9D4503 

8430 

8T A 

ICBAH, X 

DTCQ 
£3 L.. O 

A912 

8440 

LDA 

# C MCOF'Y 1 — ML0AD4 3 

B3EA 

9D4803 

8450 

STA 

I CELL;, X 

B3ED 

A90B 

8460 

LDA 

#CPUTC 

B3EF 

9D4203 

8470 

STA 

ICCMD, X 

B3F2 

2056E4 

8480 

JSR 

CIOV : MESSAGES 



8490 

; GET FILENAME 

B3F5 

A 90 5 

8500 

LDA 

#$05 

B3F7 

9D4203 

85 i 0 

STA 

ICCMD, X 

B3FA 

A912 

8520 

LDA 

#18 

B3FC 

9D4803 

8530 

STA 

I CELL, X 

B3FF 

A996 

8540 

LDA 

# <BUFF 

B401 

9D4403 

8550 

STA 

ICBAL, X 

B404 

A 9 00 

8560 

LDA 

# >BIJFF 

B406 

9D4503 

8570 

STA 

ICBAH, X 

B409 

2056E4 

8580 

JSR 

CIOV ; GET FN 

B40C 

30 1 1 

8590 

BMI 

CMPC 

B40E 

A596 

8600 

LDA 

BUFF 

B4 1 0 

C943 

8610 

CMP 

#’ C 

B4 i 2 

F00E 

8620 

BEQ 

LDCAS 

B414 

C944 

8630 

CMP 

#’ D 

B416 

F01C 

8640 

Dirn 
Jd fc. U 

LDOPN 

B4 i 8 

C945 

8650 

CMP 

#=* E 

B4 1 A 

D003 

8660 

BNE 

CMPC 

B41C 

4C0EAC 

8670 

JMP 

EDITOR 

B41F 

4CDFAD 

8680 

CMPC JMP MENU 

B422 

A 90 1 

8690 

LDCAS LDA #1 

B424 

8D8C04 

8700 

STA 

CASFLG 

B427 

A598 

87 1 0 

LDA 

BUFF+2 

B429 

C953 

8720 

CMP 

#’ S 

B42B 

D007 

8730 

BNE 

LDOPN 

B42D 

A 980 

8740 

LDA 

#$80 

B42F 

A 230 

8750 

LDX 

#$30 

B43 1 

9D4B03 

8760 

STA 

ICAX2 j, X 

B434 

209 1 AO 

8770 

LDOPN JSR CLOSE 

B437 

2096B3 

8780 

JSR 

CPYOPN 

B43A 

A904 

8790 

LDA 

#4 ; INPUT 

B43C 

9D4A03 

8800 

STA 

I CAX 1 , X 

B43F 

2056E4 

8810 

JSR 

CIOV ; OPEN IT 

B442 

1 009 

8820 

BPL 

LDLOOP 

B444 

20ECB0 

8030 

JSR 

DERROR 

B447 

20 D 4 BO 

8840 

JSR 

WAITKEY 

B44A 

4CABB3 

8850 

JMP 

LOADBF ; OPEN ERROR 

B44D 

A 9 00 

8860 

LDLOOP LDA #0 

B44F 

A230 

8870 

LDX 

#$30 

B451 

9D4803 

8880 

STA 

ICBLL, X 

B454 

9D4903 

8890 

STA 

ICBLH, X 

B457 

AD9404 

8900 

LDA 

FULLF 

B45A 

DO 6 5 

89 1 0 

BNE 

BFULL 

B45C 

AD8F04 

8920 

LDA 

COLFLG ; IT WORKS.. 

B45F 

300 A 

8930 

BMI 

LD1 

B46 1 

AD IF DO 

8940 

LDA 

CONSOL 

B464 

C907 

8950 

CMP 

#7 

B466 

F003 

8960 

BEQ 

LD1 

B468 

4CDBB4 

8970 

JMP 

LDONE 

B46B 

AD8104 

8980 

LD1 LDA 

TOPBUF-4- 1 

B46E 

CDS704 

8990 

CMP 

MAXTOPh** 1 


PAGE 47 


D: MENU. SRC 


B47 1 

900C 

9000 

BCC 

JLDl 

B473 

DOOD 

9010 

BNE 

BOK 

B475 

AD8004 

9020 

LDA 

TOPBUF 

B478 

CD8604 

9030 

CMP 

MAX TOP 

B47B 

9002 

9040 

BCC 

JLDl 

B47D 

DO 03 

9050 

BNE 

BOK 

B47F 

4CC1B4 

9060 

JLDl JMP BFULL 



9070 

n 

n 


B432 

ADS 00 4 

9080 

BOK LDA 

TOPBUF 

B4S5 

38 

9090 

SEC 


B486 

ED8604 

9 1 00 

SBC 

MAXTOF* 

B489 

9D4803 

91 10 

STA 

ICBLL, X 

B43C 

ADS 104 

9120 

LDA 

TOPBUF+1 

B48F 

EDS704 

9 1 30 

SBC 

MAXTOP+1 

B492 

9 D 490 3 

9140 

STA 

ICBLH, X 



9150 

«• 

n 


B495 

AD8604 

9 1 60 

LDA 

MAX TOP 

B498 

9D4403 

9170 

STA 

ICBAL, X 

B49B 

ADS704 

9180 

LDA 

MAXTOP+1 

B49E 

9 D 45 03 

9 1 90 

STA 

ICBAH, X 

B4A1 

A907 

9200 

LDA 

#*07 5 GET CHARS 

B4A3 

9D4203 

9210 

STA 

ICCMD, X 

B4A6 

2056E4 

9220 

J SR 

CIOV 

B4A9 

3025 

9230 

BMI 

LDERR 

B4AB 

BD4803 

9240 

ERROK LDA I CELL, X 

B4AE 

18 

9250 

CLC 


B4AF 

6DS604 

9260 

ADC 

MAXTOR 

B4B2 

8D8604 

9270 

STA 

MAXTOR 

B4B5 

BD4903 

9280 

LDA 

ICBLH, X 

B4B8 

6D8704 

9290 

ADC 

MAXTOP+1 

B4BB 

SD3704 

9300 

STA 

MAXTOP+1 

B4BE 

4C4DB4 

93 1 0 

NCARRY JMP LDLOOP 

B4C 1 

A 2 40 

9320 

BFULL LDX #$40 

B4C3 

A90 1 

9330 

LDA 

#1 

B4C5 

3D9404 

9340 

STA 

FULLF 

B4C8 

A914 

9350 

LDA 

#20 

B4CA 

20BSBD 

9360 

J SR 

PLINE 

B4CD 

4CDBB4 

9370 

JMP 

LDONE 

B4D0 

CO 88 

9380 

LDERR CPY #$88 ; EOF ERROR 

B4D2 

F007 

9390 

BEG 

LDONE 

B4D4 

COO 3 

9400 

CPY 

#*03 

B4D6 

FDD 3 

94 1 0 

BEG 

ERROK 

B4DS 

20ECB0 

9420 

J SR 

DERROR 

B4DB 

A 230 

9430 

LDONE LDX #*30 

B4DD 

BD4803 

9440 

LDA 

ICBLL, X 

B4E0 

18 

9450 

CLC 


B4E 1 

6D8604 

9460 

ADC 

MAXTOR 

B4E4 

SD8604 

9470 

STA 

MAXTOR 

B4E7 

85CC 

9480 

STA 

BUFPTR 

B4E9 

BD4903 

9490 

LDA 

ICBLH, X 

B4EC 

6D8704 

9500 

ADC 

MAXTOP+1 

B4EF 

8D8704 

95 1 0 

STA 

MAXTOP+1 

B4F2 

85CD 

9520 

STA 

BUFPTR+1 

B4F4 

A 230 

9530 

LDX 

#*30 ; DONE 

B4F6 

2029AB 

9540 

J SR 

CIOCB 

B4F9 

208EA0 

9550 

J SR 

OPEN 

B4FC 

20 D 4 BO 

9560 

JSR 

WA I TKEY 

B4FF 

4CDFAD 

9570 

JMP 

MENU 


PAGE 48 


«. a l n i /«• •*». r—A. 


B502 

ADA504 

9580 TERM2 LDA BUFFNUM 


B505 

20E7AB 

9590 

JSR 

B INDEX 



B508 

B 9 8000 

9600 

LDA 

BUFFER, Y 



B50B 

85D2 

96 1 0 

STA 

SENPTR 



B50D 

8DS204 

9620 

STA 

BQTBUF 



B510 

8981 00 

9630 

LDA 

BUFFER-** 1 , 

Y 


B5 i 3 

85D3 

9640 

STA 

SENPTR+1 



B515 

8D8304 

9650 

STA 

BOTBlJF+1 



B518 

A90 1 

9660 TERM3 LDA #1 



B51A 

8D6005 

9670 

STA 

ERFL 



B51D 

A 240 

9680 

LDX 

#$40 



B51F 

A 9 OB 

9690 

LDA 

#$0B 



B521 

9D4203 

9700 

STA 

ICCMD, X 



B524 

A915 

97 1 0 

LDA 

#21 



B526 

20B8BD 

9720 

JSR 

F‘L I NE 



B529 

A 900 

9730 

LDA 

#0 



B52B 

8DA604 

9740 

STA 

D I ALF 



L . 1 Am U. 

4r7FA? 

^ w / l*. r i a*. 

9750 

JMP 

TERM 





9760 ; 





B53 1 

ADA504 

9770 BUFF? LDA BUFFNUM 


B534 

D005 

9780 

BNE 

BDEFLT 



B536 

A 900 

9790 

LDA 

#0 



B538 

48 

9800 

PH A 




B539 

F036 

98 1 0 

BEQ 

DEYDN 



B53B 

A 2 40 

9820 BDEFLT LDX #$40 



B53D 

A 9 OB 

9830 

LDA 

#$0B 



B53F 

9D4203 

9840 

STA 

ICCMD, X 



B542 

A 9 07 

9850 

LDA 

#7 



B544 

20B8BD 

9860 

JSR 

PLINE 



B547 

A.. V* -M* Am It* U 

9870 GKEY JSR GETKEY 



B54A 

1 005 

9880 

BPL 

KEYOK 



B54C 

68 

9890 

PL A 

« 

•I 

PULL 

RTS 

B54D 

68 

9900 

PLA 

« 

FROM 

STACK 

B54E 

4CDFAD 

9910 

JMP 

MENU ; 

BREAKEY ABORT 

B551 

C931 

9920 KEYOK CMP #$31 ; 

? 1 * 


rj cr nr ~r 
JD --J 

3 OF 2 

9930 

BMI 

GKEY 



B555 

C939 

9940 

CMP 

#$39 ; 



B557 

F002 

9950 

BEQ 

KEYRND 



B559 

1 OEC 

9960 

BPL 

GKEY 



B55B 

38 

9970 KEYRND SEC 



B55C 

E93 1 

9980 

SBC 

#$31 ; 

A=BUFFER # 

B55E 

CDA504 

9990 

CMP 

BUFFNUM 



B561 

F002 

0 1 0000 

BEQ 

NOTBAD 



DPjLT 
JD U O *«•* 

1 038 

0 1 00 1 0 

BPL 

BADBUF 



B565 

48 

0 1 0020 

NOTBAD PHA 



B566 

A8 

0 1 0030 

TAY 




B567 

A 900 

0 1 0040 

LDA 

#0 



B569 

88 

0 1 0050 

DEYLP 

DEY 



B56A 

3005 

0 1 0060 

BMI 

DEYDN 



B56C 

IS 

0 1 0070 

CLC 




B56D 

6902 

0 1 0080 

ADC 

#2 



B56F 

DOF 8 

010090 

BNE 

DEYLP 



B571 

AS 

0 1 0 1 00 

DEYDN 

TAY ; 

Y= INDEX 

B572 

B 9 80 00 

010110 

LDA 

BUFFER, Y 



B575 

SD8204 

0 1 0 1 20 

STA 

BOTBUF 



B578 

C8 

0 1 0 1 30 

I NY 




B579 

B 98000 

0 1 0 1 40 

LDH 

BUFFER, Y 



B57C 

8D8304 

0 1 0 1 50 

STA 

BOTBUFh-1 




81 
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B57F 

68 

0 1 0 1 60 

PLA 


B580 

CDA504 

0 1 0 1 70 

CMP 

BUFFNUM 

B583 

FOOD 

0 1 0 1 80 

BEQ 

LASTONE 

B585 

C8 

0 1 0 1 90 

I NY 


B586 

B 9 8000 

0 1 0200 

LDA 

BUFFER ? Y 

B589 

85CC 

0 1021 0 

STA 

BUFPTR 

B58B 

CS 

0 1 0220 

I NY 


Ju.* w w w 

B98000 

0 1 0230 

LDA 

BUFFER, Y 

B58F 

85CD 

0 1 0240 

STA 

BUFPTR-+- 1 

B591 

60 

0 1 0250 

RTS 


B592 

AD3604 

0 1 0260 

LASTONE LDA MAXTOP 

B595 

S5CC 

010270 

STA 

BUFPTR 

B597 

ADS704 

010280 

LDA 

MAXTOP+1 

B59A 

S5CD 

010290 

STA 

BUFPTR+1 

B59C 

60 

0 1 0300 

RTS 


B59D 

A240 

010310 

BADBUF LDX #$40 

B59F 

A90B 

0 1 0320 

LDA 

#$0B 

B5A 1 

9D4203 

0 1 0330 

STA 

ICCMD, X 

B5A4 

A 906 

0 1 0340 

LDA 

#6 

B5A6 

20B8BD 

0 1 0350 

J SR 

PL I NE 

B5A9 

20 D 4 BO 

0 1 0360 

J SR 

WAITKEY 

B5AC 

68 

0 1 0370 

PLA 

; GET RTS 

B5AD 

68 

0 1 0380 

PLA 

; OFF STACK 

B5AE 

4CDFAD 

0 1 0390 

JMP 

MENU 

B5B 1 

A 2 40 

0 1 0400 

BUFUSED LDX #$40 

B5B3 

A90B 

0 1041 0 

LDA 

#$0B 

B5B5 

9D4203 

0 1 0420 

STA 

ICCMD, X 

B5B8 

A900 

0 1 0430 

LDA 

#0 

B5BA 

9D4803 

0 i 0440 

STA 

ICBLL, X 

B5BD 

9D4903 

0 1 0450 

STA 

ICBLH, X 

B5C0 

A99B 

0 1 0460 

LDA 

#155 

B5C2 

2056E4 

0 1 0470 

JSR 

CIOV 

B5C5 

A 9 00 

010480 

LDA 

#0 

B5C7 

9D4803 

0 1 0490 

STA 

ICBLL, X 

B5CA 

ADA504 

0 1 0500 

LDA 

BUFFNUM 

B5CD 

18 

0 1 05 1 0 

CLC 


B5CE 

6931 

0 1 0520 

ADC 

#$31 ; MAKE ASCII 

B5D0 

2056E4 

010530 

JSR 

CIOV ; PRINT NUMBER 

B5D3 

A 905 

0 1 0540 

LDA 

#5 

B5D5 

20B8BD 

0 1 0550 

JSR 

PL I NE 

B5D8 

60 

0 1 0560 

RTS 


B5D9 

2057 AB 

0 1 0570 

DIRDISK JSR OEDIT 

B5DC 

A90B 

0 1 0580 

LDA 

#$0B 

B5DE 

9D4203 

0 1 0590 

STA 

ICCMD, X 

B5E i 

A9AC 

0 1 0600 

LDA 

# CMDIRD 

ncrr-r 
£5 w L 

9D4403 

0 1061 0 

STA 

ICBAL, X 

B5E6 

A9B6 

0 1 0620 

LDA 

# >MDIRD 

B5E8 

9D4503 

0 1 0630 

STA 

ICBAH, X 

B5EB 

A98F 

0 1 0640 

LDA 

# C MD I RD 1 -MD I RD 1 

B5ED 

9D4S03 

0 1 0650 

STA 

ICBLL, X 

B5F0 

2056E4 

0 1 0660 

JSR 

CIOV 

B5F3 

1 003 

0 1 0670 

BPL 

DRPROK 

B5F5 

4CDFAD 

0 1 0680 

JMP 

MENU 

B5F8 

2002 BD 

0 1 0690 

DRPROfc 

: JSR 6ETKEY 

B5FB 

C93 1 

0 1 0700 

CMP 

#$31 

B5FD 

F007 

0 1071 0 

BEQ 

MODI SK 

B5FF 

C932 

0 1 0720 

CMP 

#$32 

B60 1 

FOi 3 

0 1 0730 

BEQ 

DISKMOD 
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B603 

4CDFAD 

0 1 0740 

B606 

A 9 00 

0 1 0750 

B608 

8D8D04 

0 1 0760 

B60B 

A 90 1 

0 1 0770 

B60D 

8D9004 

0 1 0780 

B610 

S0S4B6 

0 1 0790 

B613 

4C0SB5 

0 1 0800 

B6 1 6 

A 90 1 

010810 

B61S 

8D8D04 

0 1 0820 

B61B 

8D9004 

0 1 0830 

B61E 

20S4B6 

0 1 0840 

B6S1 

4C0SB5 

0 1 0850 

B6S4 

AS4U 

0 1 0860 

B6S6 

A 9 OB 

0 1 0870 

B6SS 

9D4S03 

010880 

B6SB 

A 9 AO 

010890 

B6SD 

9D4403 

0 1 0900 

B630 

A9B6 

0 1091 0 

B63S 

9D4503 

0 1 09 SO 

B635 

A90B 

0 1 0930 

B637 

9D4803 

0 1 0940 

B63A 

S056E4 

0 1 0950 

B63D 

A 905 

0 1 0960 

B63F 

9D4S03 

0 1 0970 

B64S 

A910 

0 1 0980 

B644 

9D4803 

0 1 0990 

B647 

A996 

0 1 1 000 

B649 

9D4403 

0 1 1 0 1 0 

B64C 

A 900 

0 1 1 oso 

B64E 

9D4503 

0 1 1 030 

B651 

S056E4 

0 1 1 040 

B654 

1 005 

011050 

B656 

68 

0 1 1 060 

B657 

68 

0 1 1 070 

B658 

4CDFAD 

0 1 1 080 

B65B 

A596 

011090 

B65D 

C944 

0111 00 

B65F 

DOF 5 

0 11110 

B661 

AS 30 

0 1 1 1 SO 

B663 

S029AB 

0111 30 

B666 

ADSD04 

0 111 40 

B669 

DO 08 

01 1 150 

B66B 

A 9 08 

0111 60 

B66D 

9D4A03 

0111 70 

B670 

4C78B6 

0 111 80 

B673 

A904 

01 1190 

B675 

9D4A03 

0 1 1 200 

B678 

A 900 

01 1210 

B67A 

9D4B03 

0 1 1 SSO 

B67D 

A903 

011230 

B67F 

9D4203 

0 1 1 240 

B68S 

A996 

0 1 1 250 

B6S4 

9D4403 

0 1 1 260 

B687 

A900 

0 1 1 270 

B689 

9D4503 

0 1 1 280 

B68C 

A90F 

011290 

B68E 

9D4803 

0 1 1 300 

B691 

S056E4 

0 1131 0 


JMP MENU 
MOD I SK LDA #0 
STA SAVMOD 
LDA #1 
STA DISKF 
J SR GFILEN 
JMP TERMS 
DISKMOD LDA #1 
STA SAVMOD 
STA DISKF 
J SR GFILEN 
JMP TERMS 
GFILEN LDX #$40 
LDA #$0B 
STA ICCMD,X 
LDA # < MF I LEN 
STA ICBAL, X 
LDA # >MFILEN 
STA ICBAH,X 
LDA #11 
STA ICBLL* X 
J SR CIOV 
LDA #5 
STA ICCMD, X 
LDA #16 
STA ICBL.L,X 
LDA # CBUFF 
STA ICBAL,X 
LDA # >BUFF 
STA ICBAhLX 
J SR CIOV 
BPL CKDOPN 

DIRBCK PLA ; GET RTS 

PLA ; OFF STACK 

JMP MENU 
CKDOPN LDA BUFF 
CMP #’ D 
BNE DIRBCK 
LDX #$30 
JSR CIOCB 
LDA SAVMOD 
BNE DOUTPUT 
LDA #8 
STA ICAX1,X 
JMP D INPUT 
DOUTPUT LDA #4 
STA I CAX 1 , X 
D INPUT LDA #0 
STA ICAX2 , X 
LDA #3 5 OPEN 

STA ICCMD,X 
LDA # CBUFF 
STA I CBAL , X 
LDA # >BUFF 
STA ICBAH,X 
LDA #15 
STA I CELL, X 
JSR CIOV ? OPEN IT 
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B694 

1 009 

0 1 1 320 

BF'L DOPNOK 

B696 

20ECB0 

0 1 1 330 

J SR DERROR 

B699 

20 D 4 BO 

0 1 1 340 

JSR WAITKEY 

B69C 

4C56B6 

0 1 1 350 

JMP DIRBCK 

B69F 

60 

0 1 1 360 

DOPNOK RTS 



0 1 1 370 

ts 

H 

B6A0 

9B46494C 

011380 

MFILEN .BYTE 1 55 , " F I LENAME ? " 

B6A4 

454E414D 



B6AS 

4 5203 F 20 



B6AC 

9B544849 

0 1 1 390 

MDIRD .BYTE 155, "THIS ALLOWS YOU TO COPY TO" 

B6B0 

53204 14C 



B6B4 

4C4F5753 



B6B8 

20594F55 



B6BC 

2054 4F 20 



B6C0 

434F5059 



B6C4 

20544F 



E6C7 

9B414E44 

011400 

.BYTE 155, "AND FROM THE DISK DIRECTLY" 

B6CB 

2046524F 



B6CF 

4B205448 



B6D3 

45204449 



B6D7 

534B2044 



B6DB 

49524543 



B6DF 

544C59 



B6E2 

9B574954 

01141 0 

-BYTE 155, "WITHOUT BUFFERING THE DATA", 155 

B6E6 

484F5554 



B6EA 

20425546 



B6EE 

46455249 



B6F2 

4E472054 



B6F6 

48452044 



B6FA 

4154419B 



B6FE 

9B7F3129 

011420 

.BYTE 1 55 , $7F , " 1 ) MODEM -> DISK DIRECT", 155 

B702 

204D4F44 


B706 

454D202D 



B70A 

3E204449 



B70E 

534B2044 



B712 

49524543 



B716 

549B 



B7 i 8 

7F322920 

011430 

.BYTE *7F., ,, 2> DISK -> MODEM DIRECT" , 155 

B71C 

4449534B 



B720 

202D3E20 



B724 

4D4F4445 



B728 

4D204449 



P7DP 
JD / U 

52454354 



B730 

9B 



B73 1 

9B43434F 

0 1 1 440 

.BYTE 155, "CHOICE ? " 

B735 

49434520 



B739 

3F20 



B73B 

20 

0 1 1 450 

MDIRD1 .BYTE " " 



0 1 1 460 

it 



0 1 1 470 

; DIRECT PRINTER 

B73C 

2057 AB 

0 1 1 480 

DIRF’R JSR OEDIT 

B73F 

A 908 

011490 

LDA #8 

B74 1 

20B8BD 

0 1 1 500 

JSR PLINE 

B744 

2096B3 

011510 

JSR CPYOPN 

B747 

A950 

0 1 1 520 

LDA # ? P 

B749 

8596 

01 1530 

STA BUFF 

B74B 

A 908 

0 1 1 540 

LDA #8 

B74D 

9D4AO o» 

0 1 1 550 

STA I CAX 1 , X 
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I t ■ ■■■» L II t 


B750 

2056E4 

0 1 1 560 

J 8 Fi 

CIOV 

B753 

1 009 

011570 

BPL 

NF'ROF'N 

B755 

20ECB0 

0 1 1 580 

JSF: 

DERROR 

B75S 

20D4B0 

0 1 1 590 

JSR 

WAITKEY 

B75B 

4CDFAD 

0 1 1 600 

JMP 

MENU 

B75E 

A 90 1 

01161 0 

NF'ROF'N LDA #1 

B760 

8D9504 

0 1 1 620 

8 T A 

DF’F'FLG 

B763 

4C02B5 

0 1 1 630 

JMP 

TERM2 



0 1 1 640 

N 

f« 


B766 

2057 AB 

0 1 1 650 

VBAUD 

JSR OEDIT 

B769 

A90B 

0 1 1 660 

LDA 

#*0B 

B76B 

9D4203 

01 1670 

STA 

ICCMD, X 

B76E 

A916 

0 1 1 680 

LDA 

#22 

B770 

9D4803 

0 1 1 690 

STA 

ICBLL, X 

B773 

A925 

0 1 1 700 

LDA 

# < MBAUD 

B775 

9D4403 

011710 

STA 

ICBAL, X 

B778 

A9B8 

0 1 1 720 

LDA 

# >MBAUD 

B77A 

9D4503 

0 1 1 730 

STA 

ICBAH, X 

B77D 

2056E4 

0 1 1 740 

JSR 

CIOV 

B7S0 

A904 

0 1 1750 

L DA 

#4 

B7S2 

9 D 4803 

0 1 1760 

STA 

ICBLL, X 

B785 

A9D3 

0 1 1 770 

LDA 

# < CBAUD 

B787 

9D4403 

0 1 1 780 

STA 

ICBAL, X 

B78A 

A904 

011790 

LDA 

# > CBAUD 

B78C 

9D4503 

0 1 1 800 

STA 

ICBAH, X 

B7SF 

2056E4 

01 1810 

JSR 

C 1 0 V 

B792 

A90B 

0 1 1 820 

BADBD 

LDA #$0B 

B794 

9D4203 

0 1 1 830 

STA 

ICCMD, X. 

B797 

A93B 

0 1 1 840 

LDA 

# < MBAUD 1 

B799 

9D4403 

0 1 1 850 

STA 

ICBAL, X 

B79C 

A9B8 

011860 

LDA 

# >MBAUD 1 

B79E 

9D4503 

0 1 1 870 

STA 

ICBAH, X 

B7A1 

A914 

0 1 1 880 

LDA 

#20 

B7A3 

9D4803 

0 1 1 890 

STA 

ICBLL, X 

B7A6 

2056E4 

0 1 1 900 

JSR 

C I ov 

B7A9 

A 9 05 

011910 

LDA 

#5 

B7AB 

9D4203 

0 1 1 920 

STA 

ICCMD, X ; GET RECORD 

B7AE 

9D4S03 

0 1 1 930 

STA 

ICBLL, X 

B7B1 

A 900 

0 1 1 940 

LDA 

#0 

B7B3 

904903 

0 1 1 950 

STA 

ICBLH, X 

B7B6 

A9D3 

0 1 1 960 

LDA 

# < CBAUD 

B7B8 

9D4403 

0 1 1 970 

STA 

ICBAL, X 

B7BB 

85F3 

0 1 1 980 

STA 

$F3 ; INBUFF 

B7BD 

A904 

0 1 1 990 

LDA 

# >CBAUD 

B7BF 

9D4503 

0 1 2000 

STA 

ICBAH, X 

B7C2 

S5F4 

012010 

STA 

$F4 ; INBUFF+i 

B7C4 

2056E4 

0 1 2020 

JSR 

CIOV ; GET NEW 

B7C7 

1 003 

0 1 2030 

BPL 

CBOK 5 BAUD RATE 

B7C9 

4C92B7 

0 1 2040 

JMP 

BADBD 

B7CC 

A 900 

012050 

CBOK LDA #0 

B7CE 

Ocrn'l 

*.J W I 

0 1 2060 

STA 

&F2 ; C I X 

B7D0 

2000 D 8 

0 1 2070 

JSR 

AFP ; FF' IN FRO 

B7D3 

BOBD 

0 1 2080 

BCS 

BADBD ; INVALID NUMBER 

B7D5 

A5F2 

0 1 2090 

LDA 

$F2 

B7D7 

C903 

0 1 2 1 00 

CMP 

#3 

B7D9 

30B7 

0 1211 0 

BMI 

BADBD 

B7DB 

C905 

0121 20 

CMP 

#5 

B7DD 

1 OB 3 

0 1 2 1 30 

BPL 

BADBD 


MS 
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B7DF 

ADD604 

0121 40 

LD A 

CBAUD+3 

B7E2 

C99B 

0 1 2 1 50 

CMP 

#155 

B7E4 

F008 

0121 60 

BEQ 

GDBAUD 

B7E6 

C930 

012170 

CMP 

#$30 ; • 0 ? 

B7E8 

30A8 

0 1 2 1 80 

BMI 

BADBD 

B7EA 

C93A 

012190 

CMP 

#$3A ; 3 s 3 

B7EC 

1 OA4 

0 1 2200 

BF’L 

BADBD 

B7EE 

20B6DD 

0 1 22 1 0 

GDBAUD J SR FM0VE ; FR0FR1 

B7F 1 

A953 

f") j 

LDA 

#83 

B7F3 

85D5 

0 1 2230 

STA 

FR0+1 . 

B7F5 

B7F7 

A93B 

85D4 

012240 

012250 

LDA 

STA 

FRO 

B7F9 

20AAD9 

0 1 2260 

JSR 

IFF 

B7FC 

2028DB 

012270 

J SR 

FDIV ; FR0”FR 1 /FRO 

B7FF 

B09 1 

0 1 2280 

BPS 

BADBD 

BSD 1 

20D2D9 

0 1 2290 

JSR 

FPI 5 FPINT 

B804 

B08C 

0 1 2300 

BCS 

BADBD 

B806 

A5D5 

012310 

LDA 

FR04-1 , GET HIGH BYTE 

B808 

FOOD 

0 1 2320 

BEQ 

INTOK 

B80A 

A5D4 

0 1 2330 

LDA 

FRO 

B80C 

C90A 

0 1 2340 

CMP 

# 1 0 

B80E 

3004 

0 1 2350 

BMI 

BDBD 

B810 

C9D5 

0 1 2360 

CMP 

#213 

rjoi *"> 
D O J. 

3003 

012370 

BMI 

I NT OK 

B814 

4C92B7 

0 1 2380 

BDBD JMP BADBD 

BS 1 7 

A5D4 

012390 

I NT OK 

LDA FRO 

B819 

38 

0 1 2400 

C HIT P 
*«j fcn. w 


B8 1 A 

E90 1 

012410 

SBC 

#1 

B81C 

8D6305 

012420 

STA 

BAUD ; IN OPEN ROUTINE 

B81F 

8D00D2 

0 1 2430 

STA 

AUDF1 ; TIMER 

B822 

4CDFAD 

0 1 2440 

JMP 

MENU ; DONE 

B825 

7D435552 

0 1 2450 

MBAUD 

.BYTE $7D, "CURRENT BAUD RATE 

B829 

52454E54 




B82D 

20424155 




B83 1 

44205241 




BS35 

54452049 




B839 

5320 




B83B 

9B444553 

012460 

MBAUD 1 

.BYTE 155, "DESIRED BAUD RATE 

BS3F 

49524544 




B843 

20424155 




B847 

44205241 




B84B 

54453F20 




B84F 

20 




B850 

7D4D494 3 

012470 

MES .BYTE $7D„ "MICROBITS PERIPHERAL 

B854 

524F4249 




B858 

54532050 




nncr 

BdjL 

45524950 




B860 

48455241 




B864 

4C205052 




B868 

4F445543 



« 

B86C 

54532C20 




B870 

494E432E 




B874 

9B 





r~* >’ 

O 


r> »» 


B875 
B879 
BS7D 
BBS 1 


534D4152 

54205445 

524D494E 

414C2052 

45562035 


0 1 2480 


BYTE "SMART TERMINAL REV 5.0 


<c> 1983" , 155, 155 
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B889 

2E302020 





B88D 

20202863 





B891 

29203139 





B895 

38339B9B 





B899 

7F4 12920 

012490 

- BYTE 

$7F, "A) 

DISK DIRECTORY" , 155 

B89D 

4449534B 




B8A1 

20444952 





B8A5 

4543544F 





B8A9 

52599B 





B8AC 

7F422920 

0 1 2500 

- BYTE 

$7F, "B> 

MODEM <-> DISK DIRECT", 155 

B8B0 

4D4F4445 




B8B4 

4D203C2D 





B8B8 

3E204449 





B8BC 

534B2044 


- 



B8C0 

49524543 





B8C4 

549B 





B8C6 

7F432920 

012510 

. BYTE 

$7F, n C) 

COPY BUFFER TO DEVICE", 155 

BSCA 

434F5059 




BSCE 

20425546 





BSD2 

46455220 





B8D6 

544F2044 





B8DA 

45564943 





B8DE 

459B 





B8E0 

7F442920 

0 1 2520 

. BYTE 

$7F, " D ) 

DELETE ALL BUFFERS", 155 

B8E4 

44454C45 




B8E8 

54452041 





B8EC 

4C4C2042 





B8F0 

55464645 





B8F4 

52539B 





B8F7 

7F452920 

0 1 2530 

. BYTE 

^7F„ M E) 

CREATE NEW BUFFER", 155 

B8FB 

43524541 





B8FF 

5445204E 





B903 

45572042 





B907 

55464645 





B90B 

529B 





B90D 

7F462920 

0 1 2540 

MESF .BYTE $7F, 

" F ) FULL/HALF DUPLEX", 155 

B91 1 

46554C4C 




B915 

2F48414C 





B919 

46204455 





B91D 

504C4558 





B92 1 

9B 





B922 

7F482920 

012550 

MESH .BYTE $7F„ 

"H> ASC I I /AT ASC II", 1 55 

B926 

41534349 





B92A 

492F4154 





B92E 

41534349 





B932 

499B 





B934 

7F492920 

0 1 2560 

MESI .BYTE 

”1) NO/X-MODEM PROTOCOL" , 155 

B938 

4E4F2F58 




B93C 

2D4D4F44 





B940 

454D2050 





B944 

524F544F 





B948 

434F4C9B 





B94C 

7F4A2920 

O 1 25 / O 

MESJ .BYTE &7F , 

"J> 38/ 40/ EX TENDED COLUMN", 155 

B950 

33382F34 





B954 

302F4558 





B958 

54454E44 





B95C 

45442043 





B960 

4F4C554D 
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B964 

4E9B 

B966 

7 F 502920 

B96A 

4E4F2F4F 

B96E 

44442F45 

9972 

56454E20 

B976 

50415249 

B97A 

54599B 

B97D 

20425954 

B981 

45532055 

B985 

53454420 

B989 

20 

B98A 

20425954 

B98E 

4553204C 

B992 

45465420 

B996 

FDFD9BAA 

B99A 

AAAAAOAO 

B99E 

C5D2D2CF 

B9A2 

D2A0A320 

B9A6 

2020 

B9A8 

7D544849 

155 

B9AC 

53204F50 

B9B0 

54494F4E 

B9B4 

20434F50 

B9B8 

49455320 

B9BC 

54484520 

B9C0 

42554646 

B9C4 

45522054 

B9C8 

4F9B4120 

B9CC 

44455649 

B9D0 

43452E20 

B9D4 

4C454741 

B9D8 

4C204445 

B9DC 

56494345 

B9E0 

53204152 

B9E4 

453A9B9B 

B9E8 

7F46494C 

B9EC 

454E414D 

B9F0 

45202020 

B9F4 

44455649 

B9F8 

43459B9B 

B9FC 

7F433A28 

BAOO 

53484F52 

BA04 

54292020 

BA 08 

2D20434 1 

BAOC 

53534554 

BA 10 

54459B 

BA 13 

7F443A66 

BA 17 

696C656E 

BA IB 

6 1 6D6520 

BA1F 

2D 204449 

BA 23 

534B9B 

BA26 

7F4D3A20 

BA2A 

20202020 

BA2E 

20202020 

BA 32 

2D204D4F 

BA36 

44454D9B 


D: MENU. SRC 


012580 MESP 


.BYTE $7F n "P > N0/0DD/EVEN PARITY" 



012590 BMES1 .BYTE " BYTES USED " 


012600 BMES2 .BYTE " BYTES LEFT " 


012610 MERROR .BYTE $FD, *FD, 155, $AA, $AA, $AA, $AO, $AC, $C5, $D 

, $CF , $D2 , $A0 , $A3 , $20 , $20 , $20 ; ’ ERROR 


012620 MCOPY 


.BYTE $7D, " 

TO” 


THIS OPTION COPIES THE BUFFER 
,155," A DEVICE. LEGAL DEVICES AREs 



012630 MLOAD .BYTE $7F, "FILENAME DEVICE", 155, 155 


012640 .BYTE $7F, "C: (SHORT) 


CASSETTE " , 155 


012650 


BYTE $7F, "Ds -filename 


DISK" , 155 


012660 MLOAD 1 .BYTE $7F„"M 


MODEM" , 155 


# M 
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BA3A 
BA3E 
BA42 
BA46 
B A4A 
BA4E 
BA4F 
BA53 
BA57 
BA5B 
BASF 
BA 63 
BA65 
BA69 
BA6D 
BA7 1 
BA75 
BA77 
BA78 
BA7C 


BA7E 
BA81 
BA84 
BA86 
BA89 
BASB 
BA8D 
BA90 
BA93 
BA95 
BA93 
BA9B 
BA9D 
BAA O 
BAA3 
BAA4 
BAA6 
BAA9 
BAAB 
BAAE 
BABO 
BAB3 
BAB5 
BAB8 
BABA 
BABE) 
BABF 
BAC2 
BAC4 
BAC7 
BACA 
BACC 
BACD 
BACF 
BAD1 
BAD3 


7F533A20 

012670 

.BYTE $7F, "Ss 

- SCREEN" ,155 

20202020 

20202020 

2D205343 

5245454E 

9B 






7F503A20 

0 1 2680 

-BYTE $7F„"P: 

~ PRINTER" , 155 

20202020 
20202020 
2D 2050 5 2 
494E5445 

cr n n t~« 





9B454E54 

012690 

ML0AD4 .BYTE 155 ."ENTER FILENAME ? " 

45522046 
494C454E 
4 1 4D4520 
3F20 
20 

0 1 2700 

MC0PY1 

.BYTE " 

1! 

443A2A2E 

0 1 27 1 0 

D I 8 KM 

.BYTE "D: 

*. *" , 155 

2A9B 

0 1 2720 

u 

!• 




0 1 2730 

; AUTODIAL SECTION 

2057AB 

012740 

DIAL J 

SR OEDIT 


ADA304 

0 1 2750 

L.DA 

DIALADD 

- 

R5CS 

W W W w 

012760 

ST A 

DIALBF 


ADA4U4 

012770 

LDA 

DIALADD+i 


85C9 

0 1 2780 

STA 

DIALBF+1 


A 900 

012790 

LDA 

#0 


8DA2U4 

0 1 2800 

STA 

PLCNT 


8DA604 

0 1 28 1 0 

STA 

DIALF 


A 900 

012820 

PLOOP 

LDA #0 


9D4803 

0 1 2830 

STA 

I CELL, X 


9D4903 

0 1 2840 

STA 

ICBLH, X 


A90B 

0 1 2850 

LDA 

#CPUTC 


9D4203 

012860 

STA 

ICCMD , X 


ADA204 

0 1 2870 

LDA 

PLCNT 


18 

0 1 2880 

CLC 



6930 

012890 

ADC 

#$30 5 

MAKE DECIMAL 

2056E4 

0 1 2900 

JSR 

CIOV ; 

PRINT IT 

A929 

0 1 29 1 0 

LDA 

#’ ) 


2056E4 

0 1 2920 

JSR 

CIOV 


A920 

012930 

LDA 

#$20 ; 

I THINK SPACE 

2056E4 

0 1 2940 

JSR 

CIOV 


A5C8 

012950 

LDA 

D I ALBF 


9D4403 

0 1 2960 

STA 

ICBAL, X 


A5C9 

012970 

LDA 

DIALBF+1 


9D4503 

0 1 2980 

STA 

ICBAH, X 


A909 

012990 

LDA 

#CPUTR 


9D4203 

0 1 3000 

STA 

ICCMD, X 


A918 

013010 

LDA 

#24 


9D4803 

0 1 3020 

STA 

I CBLL , X 


2056E4 

0 1 3030 

JSR 

CIOV 


A5C8 

0 1 3040 

LDA 

DIALBF 


18 

013050 

CLC 



6919 

0 1 3060 

ADC 

.u. nr 
fr .c. %J 


djLo 

0 1 3070 

STA 

DIALBF 


9002 

0 1 3080 

npp 

D w w 

NOCARY 


E6C9 

013090 

INC 

DI ALBF+l 
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BAD5 

EEA204 

013100 

NOCARY 

' INC F’LCNT 

BADS 

ADA204 

0 13110 

LDA 

PLCNT 

BADB 

C90A 

0 1 3 1 20 

CMP 

#10 

BADD 

D0B4 

0131 30 

BNE 

PLOOP 



0131 40 

; DONE 

PRINTING PHONE # ? S 

BADF 

A90B 

0 1 3 1 50 

LDA 

#CF‘UTC 

BAE 1 

9D4203 

0131 60 

STA 

ICCMD, X 

BAE4 

A91D 

013170 

LDA 

# CMDIALl 

BAE6 

904403 

0 1 3 1 80 

STA 

ICBAL, X 

BAE9 

A9BD 

013190 

LDA 

# >MDI ALi 

BAEB 

9D4503 

0 1 3200 

STA 

ICBAH, X 

BAEE 

A9 1 0 

013210 

LDA 

# < C lib I AL2— MD I AL 1 3 

BAFO 

9D4803 

0 1 3220 

STA 

ICBLL, X 

BAF3 

A 9 00 

013230 

LDA 

# > [ MD I AL2-MD I AL 1 1 

BAF5 

9D4903 

013240 

STA 

ICBLH, X 

BAFB 

2 056 E 4 

0 1 3250 

J SR 

CIOV 

BAFB 

AD9604 

0 1 3260 

LDA 

ANSFLG 

BAFE 

DO 07 

013270 

BNE 

ANSF1 

BBOO 

A91S 

0 1 3280 

LDA 

#24 

BBC 2 

20B8BD 

0 1 3290 

JSR 

PL I NE 

BB05 

D005 

0 1 3300 

BNE 

r"> r;« 12" C2 T 
I r\ L:.. o l 

BB07 

A9 1 7 

0 1331 0 

ANSF1 

LDA #23 

BBC 9 

20BSBD 

013320 

JSR 

PLINE 

BBOC 

A90B 

013330 

PREST 

LDA #CPUTC 

BBOE 

9D4203 

0 1 3340 

STA 

ICCMD, X 

BB1 1 

A92D 

013350 

LDA 

# CMDIAL2 

BB 1 3 

9D4403 

0 1 3360 

STA 

ICBAL, X 

BB16 

A9BD 

013370 

LDA 

# >MD I AL2 

BB 1 S 

9D4503 

0 1 3380 

STA 

ICBAH, X 

BB1B 

A968 

013390 

LDA 

# C MD I AL3—MD I AL2 3 

BB1D 

9 D 48 03 

0 1 3400 

STA 

ICBLL, X 

BB20 

2056E4 

0 1 34 1 0 

JSR 

CIOV 

BB23 

2002BD 

0 1 3420 

AKEY? 

JSR GETKEY 

BB26 

C94 i 

0 1 3430 

CMP 

# ? A 

n n 

BB2S 

F02A 

0 1 3440 

BEQ 

CHANSWR 

BB2A 

C942 

013450 

CMP 

# ? B 

BB2C 

F03 1 

0 1 3460 

BE 03 

CHD IAL 

BB2E 

C943 

013470 

CMP 

#’ C 

BB30 

D003 

0 1 3480 

BNE 

D? 

BB32 

4C33BC 

0 1 3490 

JMP 

CHCHAN 

BB35 

C944 

0 1 3500 

D? CMP 

1 # ? D 

BB37 

D003 

013510 

BNE 

IM«* « 

BB39 

4C5ABC 

013520 

JMP 

CHLOAD 

DDTr 
JD Jt> •«.» t-f 

C945 

013530 

E? CMF 

1 # •*’ E 

BB3E 

D003 

0 1 3540 

BNE 

F? 

BB40 

4C90BC 

0 1 3550 

JMP 

CHSAVE 

BB43 

C946 

0 1 3560 

F? CMP 

' # ? F 

BB45 

F007 

013570 

BEQ 

HANGF* 

BB47 

C947 

013580 

CMP 

# ? G 

BB49 

DODS 

0 1 3590 

BNE 

AKEY? 

BB4B 

4CDFAD 

0 1 3600 

JMP 

MENU 

BB4E 

209DA0 

0 1 36 1 0 

HANGF* 

JSR ONHOOK ; PORTA /PORTB 

BBS 1 

4C7EBA 

0 1 3620 

JMP 

D I AL ; WA Z I T ANERROR? 

BBS 4 

AD9604 

013630 

CHANSWR LDA ANSFLG 

BB57 

4901 

0 1 3640 

EOR 

#1 

BB59 

8D9604 

013650 

STA 

ANSFLG 

BBSC 

JL* i- • w w 

4C7EBA 

0 1 3660 

JMP 

D I AL 

BB5F 

A900 

0 1 3670 

CHD IAL 

. LDA #0 


3S 
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D 


BB6 1 

8E>9604 

0 1 3680 

STA 

ANSFLG 

BB64 

20A4BB 

0 1 3690 

J SR 

PRNUMB 

BB67 

1 003 

0 1 3700 

BPL 

CDIAL1 

BB69 

4CDFAD 

013710 

JMP 

MENU 

BB6C 

A240 

013720 

CD I AL1 

LDX #$40 $ PRINT THE NUM 

BB6E 

A 9 OB 

013730 

LDA 

#$0B ; WAS CPUTR 

BB70 

9D4203 

0 1 3740 

STA 

ICCOM, X 

BB73 

A 900 

013750 

LDA 

#0 

BB75 

9D4903 

0 1 3760 

STA 

ICBLH, X 

BB78 

A9CD 

013770 

LDA 

# < M2 6 

BB7A 

904403 

0 1 3780 

STA 

ICBAL, X 

BB7D 

A9BF 

013790 

LDA 

# >M26 

BB7F 

9D4503 

0 1 3800 

STA 

ICBAH, X 

BB82 

A 9 09 

013810 

LDA 

#$09 ? M26 LENGTH 

BB84 

9D4803 

013820 

STA 

ICBLL, X 

BB87 

2056E4 

0 1 3830 

JSR 

CIOV 

BB8A 

A 909 

0 1 3840 

LDA 

#CPUTR 

BB8C 

9D4203 

0 1 3850 

STA 

ICCOM, X 

3D DOr 

A5C8 

0 1 3860 

LDA 

DIALBF 

BB91 

9D4403 

0 1 3870 

STA 

ICBAL, X 

BB94 

A5C9 

0 1 3880 

LDA 

DIALBFn-1 

BB96 

9D4503 

013890 

STA 

ICBAH, X 

BB99 

A9 1 9 

0 1 3900 

LDA 

#25 

BB9B 

9D4803 

0 1391 0 

STA 

ICBLL, X 

BB9E 

2056E4 

0 1 3920 

JSR 

CIOV 

BBA1 

4CD8BB 

0 1 3930 

JMP 

DIALNUM 

BBA4 

A902 

0 1 3940 

PR MU MB 

i LDA #2 

BBA6 

20B8BD 

0 1 3950 

JSR 

PL I NE 

BBA9 

200 2 BD 

0 1 3960 

BADK 1 

JSR GETKEY 

BBAC 

1 00 1 

013970 

BPL 

GOODKY 

BBAE 

60 

0 1 3980 

RTS 

; ABORT 

BBAF 

C930 

0 1 3990 

GOODKY 

CMP # ? 0 

BBB 1 

3 OF 6 

0 1 4000 

BMI 

BADK 1 

BBB3 

C940 

014010 

CMP 

# ? @ 

BBB5 

1 0F2 

0 1 4020 

BPL 

BADK 1 

BBB7 

38 

0 1 4030 

c cr r 

D Lm. l.«f 


IDTC/TDO 
OJD JDO 

E930 

0 1 4040 

SBC 

#$30 5 MAKE DEC I MAL 

BBBA 

A8 

0 1 4050 

TAY 


BBBB 

ADA 30 4 

0 1 4060 

LDA 

DIALADD 

BBBF 

85C8 

0 1 4070 

STA 

DIALBF 

BBCO 

ADA4U4 

0 1 4080 

LDA 

DIALADD+1 

BBC3 

85C9 

014090 

STA 

DIALBF+1 

BBC5 

88 

0 141 00 

FINDNUM DEY 

BBC6 

30 0D 

0 14110 

BMI 

NUMFND 

BBCS 

A5C8 

0141 20 

LDA 

DIALBF 

BBCA 

IS 

0141 30 

CLC 


BBCB 

6919 

0141 40 

ADC 

#25 

BBCD 

S5C8 

0 1 4 1 50 

STA 

DIALBF 

BBCF 

9002 

0141 60 

BCC 

ADDNC2 

BBD1 

E6C9 

0 1 4 1 70 

INC 

DI ALBF-+- 1 

BBD3 

D0F0 

0141 80 

ADDNC2 

BNE FINDNUM 

BBD5 

A 9 00 

0141 90 

NIJMFND 

LDA #0 ; SEND STATUS 

BBD7 

60 

014200 

RTS 


BBD8 

20 A0 A0 

0 1 42 1 0 

DIALMUM JSR OFFHOOK 

BBDB 

A 9 00 

0 1 4220 

LDA 

#0 

BBDD 

8514 

0 1 4230 

STA 

$14 ; RTCLOCK 

BBDF 

A 5 1 4 

014240 

TONE LDA $14 ;4 SEC 

BBE1 

C9FF 

014250 

CMP 

TV Am W *mJ 
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SRC 


BBE3 

1 OF A 

0 1 4260 

BPL 

TONE ; WAIT FOR DIAL 

BBE5 

AOFF 

014270 

LDY 

#$FF 

BBE7 

C8 

0 1 4280 

BADNUM I MY 

BBES 

B1C8 

014290 

LDA 

(DIALBF) , Y 

BBEA 

C99B 

0 1 4300 

CMP 

#155 

BBEC 

F03A 

0 1 43 1 0 

BEQ 

DLDONE 

BBEE 

C930 

0 1 4320 

CMP 

# •’ 0 

BBFO 

3 OF 5 

014330 

BMI 

BADNUM 

BBF2 

C93A 

0 1 4340 

CMP 

# ? £ 

BBF4 

i OF 1 

0 1 4350 

BPL 

BADNUM 

BBF6 

38 

0 1 4360 

SEC 


BBF7 

E930 

014370 

SBC 

#$30 ; MAKE 0-9 

BBF9 

DO 02 

0 1 4380 

BNE 

D I GOK 

BBFB 

A90A 

014390 

LDA 

#10 ; 10=00 I AL 

BBFD 

AA 

n n 

0 1 4400 

D 1 6 OK 

TAX 

BBFE 

20 1 OBC 

0 1441 0 

DIALOOP J SR PULSE 

BCOi 

CA 

0 1 4420 

DEX 


BC02 

DOFA 

014430 

BNE 

DIALOOP 

BC04 

A 900 

014440 

LDA 

#0 

BC06 

8514 

014450 

STA 

$14 

BC08 

A514 

0 1 4460 

F'ULWAIT LDA $14 ; RTCLOCK 

BCOA 

C93C 

0 1 4470 

CMP 

#60 

BCOC 

30F A 

0 1 4480 

BMI 

F’ULWAIT 

BCOE 

10D7 

014490 
0 1 4500 

BPL 

5 6/10 

BADNUM 5 DONE WITH 
SEC DELAY BETWEEN 



014510 

; NUMBERS 

BC 1 0 

209 DAO 

0 1 4520 

PULSE 

JSR ONHOOK 

BC 1 3 

201DBC 

0 1 4530 

J SR 

W 1 OTH 

BC i 6 

20 AO AO 

014540 

JSR 

OFFHOOK 

BC 1 9 

20 1 DBC 

0 1 4550 

3 SR 

W 1 OTH 

BC 1 C 

60 

0 1 4560 

RTS 


BC 1 D 

A 9 00 

014570 

W 1 OTH 

LDA #0 

BC 1 F 

8514 

0 1 4580 

STA 

$ 1 4 ; RTCLOCK 

BC2 1 

A514 

014590 

SEC 1 OTH LDA $14 

BC23 

C903 

0 1 4600 

CMP 

#3 

BC25 

3 OF A 

014610 

BMI 

SEC 1 OTH 

BC27 

60 

0 1 4620 

RTS 


nrn o 
JD w O 

A 90 1 

014630 

DL.DONE 

: LDA #1 

BC2A 

8D6C05 

0 1 4640 

STA 

PHONE 

BC2D 

8DA604 

014650 

STA 

DIALF 

BC30 

4CDFAD 

0 14660 
014670 

JMP 

a 

* 

MENU _ 

BC33 

20A4BB 

0 1 4680 
0 1 4690 

CHCHAN JSR PRNUMB 

; RETURNS WITH STARTING ADDRESS OF NUMBER TO CHANGE IN 

DIALBF 

BC36 

1 003 

0 1 4700 

BPL 

CCHAN1 

DPTO 

DLwO 

4CDFAD 

0 1 47 1 0 

JMP 

MENU 

BC3B 

A 90 3 

014720 

CCHAN1 

LDA #3 

BC3D 

20BSBD 

0 1 4730 

JSR 

PL I NE 

BC40 

A5C8 

014740 

LDA 

D I ALBF 

BC42 

9D4403 

0 1 4750 

STA 

ICBAL, X 

BC45 

A5C9 

0 1 4760 

LDA 

DIALBF+1 

BC47 

9D4503 

0 1 4770 

STA 

ICBAH, X 

BC4A 

A918 

0 1 4780 

LDA 

#24 

BC4C 

9D4803 

0 1 4790 

STA 

ICBLL, X 

BC4F 

A 905 

0 1 4800 

LDA 

#5 

BC5 1 

9D4203 

0 1 48 1 0 

STA 

ICCMD, X 

BC54 

2056E4 

0 1 4820 

JSR 

C 1 0 V 
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BC57 

4C7EBA 

0 1 4830 

JMP 

DIAL 

BC5A 

209 1 AO 

014840 

CHLOAD JSR CLOSE 

BC5D 

2066BC 

0 1 4850 

JSR 

LDNUM 

BC60 

208EA0 

0 1 4860 

JSR 

OPEN 

BC63 

4C7EBA 

0 1 4870 

JMP 

DIAL 

BC66 

20BBBC 

0 1 4880 

LDNUhKJSR PROPEN 

BC69 

A 9 U 4 

0 1 4890 

LDA 

#4 ; INPUT 

BC6B 

9D4A03 

0 1 4900 

STA 

ICAXljX 

BC6E 

20E0BC 

014910 

JSR 

PRTRANS 

BC7 1 

3017 

014920 

BMI 

CHLD2 

BC73 

A907 

0 1 4930 

LDA 

#C GETC 

BC75 

9D4203 

014940 

STA 

ICCMD, X 

BC7S 

2056E4 

014950 

JSR 

Cl 00 

BC7B 

1 00 D 

014960 

BPL 

CHLD2 

BC'7D 

C98S 

0 1 4970 

CMP 

#136 ; EOF 

BC7F 

F009 

014980 

BEQ 

CHLD2 

BC8 i 

2057 AB 

0 1 4990 

JSR 

OEDIT 

BC84 

20ECB0 

0 1 5000 

JSR 

DERROR 

BC87 

20D4B0 

0 1501 0 

JSR 

WA I TKEY 

BC8A 

A 2 30 

0 1 5020 

CHLD2 

LDX #*30 

BC8C 

2029AB 

0 1 5030 

JSR 

CIOCB 

BC8F 

60 

0 1 5040 

RTS 


BC90 

2091 AO 

0 1 5050 

CHSAVE 

: JSR CLOSE 

BC93 

20BBBC 

0 1 5060 

JSR 

PROPEN 

BC96 

A908 

0 1 5070 

LDA 

#8 

BC98 

9D4A03 

0 1 5080 

STA 

I CAX 1 , X 

BC9B 

20E0BC 

0 1 5090 

JSR 

PRTRANS 

BC9E 

3 00 A 

0151 00 

BMI 

CHSA2 

BCAO 

A90B 

0 15110 

LDA 

#CPUTC 

BCA2 

9D4203 

015120 

STA 

ICCMD, X 

BCA5 

2056E4 

0 1 5 1 30 

JSR 

Cl 00 

BCA8 

1 006 

015140 

BPL 

CHSA3 

BCAA 

20ECB0 

0151 50 

CHSA2 

JSR DERROR 

BCAD 

20D4B0 

0151 60 

JSR 

WA I TKEY 

BCBO 

A 230 

0 1 5 1 70 

CHSA3 

LDX #*30 

BCB2 

2029AB 

0 151 80 

JSR 

CIOCB 

BCB5 

208EA0 

0151 90 

JSR 

OPEN 

BCB8 

4C7EBA 

0 1 5200 

JMP 

DIAL 

BCBB 

A 230 

015210 

PROPEN 

1 LDX #*30 

BCBD 

2029AB 

0 1 5220 

JSR 

CIOCB 

BCCO 

A 5 09 

0 1 5230 

LDA 

*09 ; BOOT? 

BCC^ 

JU.* W W 4 — 

DOOC 

015240 

BNE 

DISKBT 

BCC4 

A995 

0 1 5250 

LDA 

# CMCASS 

BCC6 

904403 

015260 

STA 

ICBAL, X 

BCC9 

A9BD 

015270 

LDA 

# >MCASS 

BCCB 

9D4503 

0 1 5280 

STA 

ICBAH, X 

BCCE 

DOOA 

0 1 5290 

BNE 

OP DEO 

BCDO 

A99S 

0 1 5300 

DISKBT 

LDA # < MD I SK 

BCD2 

9D4403 

015310 

STA 

ICBAL, X 

BCD5 

A9BD 

015320 

LDA 

# >MD I SK 

BCD7 

9D4503 

0 1 5330 

STA 

ICBAH, X 

BCDA 

A 9 00 

0 1 5340 

OPDEO 

LDA #0 

BCDC 

9D4B03 

0 1 5350 

STA 

ICAX2, X 

BCDF 

60 

015360 

RTS 


BCEO 

A 903 

0 1 5370 

PRTRANS LDA #COF*EN 

BCE2 

9D4203 

015380 

STA 

ICCMD, X ; OPEN 

BCE5 

2056E4 

0 1 5390 

JSR 

Cl 00 

BCE8 

1 00 1 

015400 

BPL 

F'RTROK 


PAGE 
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BCEA 

60 

0 1 54 1 0 

RTS 



BCEB 

ADA304 

015420 

PRTROK LDA DIAL ADD 



BCEE 

9D4403 

015430 

STA ICBAL., X 



BCF 1 

ADA404 

015440 

LDA DIALADD+1 



BCF4 

9D4503 

015450 

STA ICBAH.X 



BCF7 

A9FC 

015460 

LDA #252 



BCF9 

9D4803 

015470 

STA ICBLL,X 



BCFC 

A 9 00 

015480 

LDA #0 



BCFE 

9D4903 

015490 

STA ICBLH.X 



BD01 

60 

015500 

RTS 



BD02 

SA 

015510 

GETKEY TXA 



BD03 

48 

015520 

PHA 



BD04 

2032AB 

015530 

JSR GKEYB 



BD07 

A907 

015540 

LDA #CGETC 



BD09 

9D4203 

015550 

STA I CCMD , X 



BDOC 

2056E4 

015560 

JSR CIOV 



BDOF 

8DA204 

015570 

STA PLCNT 



BD 1 2 

08 

0 1 5580 

PHP 



BD 1 3 

2029AB 

015590 

JSR CIOCB 



BD 1 6 

28 

0 1 5600 

PLP 



BD 1 7 

68 

0 1561 0 

PLA 



BD10 

AA 

015620 

TAX 



BD 1 9 

ADA204 

0 1 5630 

LDA PLCNT 



BD 1 C 

60 

015640 

RTS 



BD 1 D 

9B 

0 1 5650 

MDIAL1 -BYTE 155 



BD 1 E 

7F4 12920 

O 1 5660 

.BYTE *7F,"A> AUTOANSWER " 


BD22 

4155544F 





BD26 

414E5357 





BD2A 

455220 





BD2D 

7F422920 

015670 

MDIAL2 .BYTE $7F, M B) 

DIAL NUMBER" ,155 


BD3 1 

44494 1 4C 





BD35 

204E554B 





BD39 

4245529B 





BD3D 

7F432920 

0 1 5680 

.BYTE $7F, "C> CHANGE NUMBER " , 155 


BD4 i 

43484 1 4E 





BD45 

4745204E 





BD49 

554D4245 





BD4D 

529B 





BD4F 

7F442920 

015690 

.BYTE $7F,"D> LOAD 

NUMBERS" , 155 


BD53 

4C4F4144 





BD57 

204E554D 





BD5B 

42455253 





BD5F 

9B 





BD60 

7F452920 

015700 

.BYTE $7F , "E) SAVE 

NUMBERS" , 155 


BD64 

53415645 





BD68 

204E554D 





BD6C 

42455253 





BD70 

9B 





BD7 1 

7F462920 

0 1 57 1 0 

.BYTE $7F,"F) HANG 

UP PHONE", 155 


BD75 

48414E47 





BD79 

20555020 





BD7D 

50484F4E 





BD8 1 

459B 





BD83 

7F 472920 

015720 

. BYTE $7F , "G) EXIT 

it •[ crcr 

If X wJ w 


BD87 

45584954 





BD8B 

9B 





BD8C 

9B43484F 

0 1 5730 

.BYTE 155. “CHOICE? 

it i nr nr 

<f J. u; 


BD90 

4943453F 
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BD94 9B 
BD95 

BD95 433A9B 
BD98 443A4D50 
BD9C 502E444 1 
BDAO 549B 
BDA2 443A4D53 


BDA6 


V* 4m. W 


p* 

•J 1 4^ oL Ul 


BDAA 4D50509B 


BDAE 443A4D50 


BDB2 5S2E4D50 
BDB6 509B 


BDB8 8DA204 
BDBB CEA204 
BDBE A904 
BDCO S5C6 
BBC2 A9BE 
BDC4 85C7 
BDC6 A 000 
BDC8 A5C6 
BDCA 18 
BDCB 6901 
BDCD 85C6 
BDCF 9002 
BDD1 E6C7 
BDD3 B1C6 
BDD5 C99B 
BDD7 DOEF 
BDD9 CEA204 
BDDC DOEA 
BDDE A240 
BDEO A5C6 
BDE2 18 
BDE3 6901 
BDE5 9D4403 
BDE8 9002 
BDEA E6C7 
BDEC A5C7 
BDEE 9D4503 
BDF 1 A928 
BDF3 9D4803 
BDF6 A 900 
BDF8 9D4903 
BDFB A909 
BDFD 9D4203 
BE 00 2056E4 
BE 03 60 

BE04 00 
BEOS 209B 
BE07 4E554D42 
BE OB 45523F9B 
BEOF 4E455720 
BE 13 4E554D42 
BE 17 45523F9B 
BE IB 44454C45 


015740 MDIAL3 

015750 riCASS .BYTE "C: " .155 
O 1 5760 MD I SK .BYTE "D: MPP . DAT " , 1 55 


0 1 5770 M79 . BYTE " D : MS232 . MPP ", 1 55 


015780 M80 .BYTE ”D: MPX . MPP" , 155 


015790 SPRINTS ONE LINE MESSAGE ENDING WITH CR 

015800 ; MESSAGE INDEXED BY A REGISTER 

015810 F'LINE ST A PLCNT 

015820 DEC PLCNT 

015830 LDA # <M0 

015840 STA F'LF'TR 

015850 LDA # >M0 

015860 STA F'LF'TR+1 

015870 LDY #0 

015880 LOOKCR LDA F'LF'TR 

015890 CLC 

015900 ADC #1 

015910 STA F'LF'TR 

0 1 5920 BCC LCF; 1 

015930 INC F'LF'TR+1 

015940 LCR 1 LDA ( F'LF'TR ),Y 

015950 CMF' #155 

015960 BNE LOOKCR 

015970 FNDCR DEC F'LCNT 

015980 BNE LOOKCR 

015990 LDX #$40 

016000 LDA F'LF'TR 

016010 CLC 

016020 ADC #1 

016030 STA I CBAL , X 

016040 BCC NCAR1 

016050 INC F'LF'TR+1 

016060 NCAR1 LDA F'LF'TR+1 

O 1 6070 STA I CBAH , X 

016080 LDA #40 

016090 STA I CELL., X 

016100 LDA #0 

016110 STA I CBLH , X 

016120 LDA #CF'UTR 

016130 STA ICCMD, X 

016140 JSR CIOV ; PRINT IT 

016150 RTS 

016160 ; START OF MESSAGES 

0161 70 MO . BYTE $00 

016180 Ml .BYTE " ",155 s’CR’ 

016190 M2 .BYTE " NUMBER? ", 1 55 

016200 M3 .BYTE "NEW NUMBER?" , 1 55 


016210 M4 .BYTE "DELETE BUFFERS (Y/N) ?", 


155 


nu 
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PAGE 

63 

BE1F 

54452042 

BE23 

55464645 

BE27 

52532028 

TjCOD 
JD lTm jl* JD 

592F4E29 

BE2F 

203F9B 

BE32 

20204255 

BE36 

46464552 

BE3A 

cr ~x c cr cr; 

. i .i. •_* 

BE3E 

45449B 

BE 4 1 

42554646 

BE45 

4552204E 

BE49 

4F542043 

BE4D 

52454154 

BE51 

45449B 

BE54 

42554646 

BESS 

45522023 

BE5C 

20544F20 

BE 60 

434F5059 

BE64 

3F9B 

BE66 

7D444952 

BE6A 

45435420 

BE6E 

5052494E 

BE72 

549B 

BE74 

7F4B2920 

BE7S 

4D4F4445 

BE7C 

4D202D3E 

c> cr q n 

DtOU 

20505249 

BES4 

4E544552 

BESS 

20444952 

BESC 

4543549B 

BE 90 

7F4C2920 

BE94 

4C4F4 1 44 

BE9S 

20425546 

BE9C 

46455220 

BEAO 

46524F4D 

BEA4 

20444556 

BEA8 

4943459B 

BEAC 

7F4D2920 

B E B O 

44494 14C 

BEB4 

2F414E53 

BEBS 

57455220 

BEBC 

46554E43 

BECO 

54494F4E 

BEC4 

539B 

BEC6 

7F542920 

BECA 

5445524D 

BECE 

494E414C 

BED2 

204D4F44 

BED6 

459B 

BEDS 

7F562920 

BEDC 

56415249 

BEEO 

4 1 424C45 

BEE4 

20424155 

BEES 

44205241 

BEEC 

54459B 

BEEF 

434S4F49 

BEF3 

4345203F 

BEF7 

9B 


016220 M5 .BYTE " BUFFERS USED" ,155 


016230 M6 .BYTE "BUFFER NOT CREATED", 155 


016240 M7 .BYTE "BUFFER # TO COPY?", 155 


016250 MS .BYTE $7D, "DIRECT PRINT", 155 


016260 M9 .BYTE $7F,”K> MODEM -> PRINTER DIRECT", 155 


016270 M10 .BYTE *7F, "L> LOAD BUFFER FROM DEVICE", 155 


016280 Mil .BYTE $7F, "M> DIAL/ANSWER FUNCT I ONS " , 1 55 


016290 Ml 2 .BYTE $7F,"T) TERMINAL MODE", 155 


016300 M 1 3 .BYTE $7F, "V) VARIABLE BAUD RATE", 155 


016310 M14 .BYTE "CHOICE ?",155 
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50524553 

53203C52 

45545552 

4E3E2054 

4F20434F 

4E54494E 

55459B 

42554646 

45522043 

4F505920 

52454144 

599B 


016320 M 1 5 .BYTE “PRESS < RETURN > TO CONTINUE" , 155 


3C4F5054 
494F4E3E 
20544F20 
53544152 
54204 14E 
44205354 
4F502053 
4156459B 
54484953 
204F5054 
494F4E20 
4C4F4 1 44 
53205448 
45204255 
46464552 
2046524F 
4D9B 

41204445 
56494345 
2E204C45 
4741 4C20 
44455649 
43455320 
4 1 52453A 
9B 

2A2A2042 

55464645 

52204655 

4C4C202A 

2A9B 

FD2A2A20 

4F4E4C49 

4E45202A 

2A9B 

7F453A20 
20202020 
20202020 
2D205343 
5245454E 
20454449 
544F529B 
CFCE9B 
CFC6C69B 
20 9 B 

4 1 55544F 


016330 Ml 6 .BYTE “BUFFER COPY READY" , 155 


55534520 016340 M17 .BYTE "USE <OPTION> TO START AND STOP SAVE" , 155 


016350 MIS .BYTE “THIS OPTION LOADS THE BUFFER FROM", 155 


016360 Ml 9 .BYTE “A DEVICE. LEGAL DEVICES ARE: “,155 


016370 M20 .BYTE "** BUFFER FULL **",155 


016380 M2 1 .BYTE $FD„ "** ONLINE **",155 


016390 M2 2 .BYTE $7F, "E: 


SCREEN EDITOR", 155 


016400 M2 3 
016410 M24 
016420 M25 
016430 M26 


.BYTE $CF , $CE , 1 55 ; ON 
. BYTE *CF , &C6 , $C6 , 1 55 
.BYTE “ ",155 

.BYTE "AUTODIAL:" 


5 OFF 


PAGE 65 


D 


BFD 1 

44494 1 4C 



BFD5 

3 A 



BFD6 

2020 

016440 

ENDF'R . BYTE " 

BFD8 


0 1 6450 

ROMJTABLE 

BFD8 

72A 1 

0 1 6460 

- WORD J MOD I N I T 

BFDA 

82A 1 

0 1 6470 

. WORD JOF’EN 

BFDC 

DO A 1 

016480 

. WORD J CLOSE 

BFDE 

E6A 1 

0 1 6490 

. WORD JREAD 

BFEO 

1 4A2 

016500 

.WORD J WRITE 

BFE2 

50A2 

0 1 65 1 0 

.WORD JMSTATS 

BFE4 

5FA2 

016520 

.WORD JOMHOOK 

BFE6 

68A2 

0 1 6530 

.WORD JMSA 

BFE8 

71A2 

O 1 6540 

.WORD JMSB 

BFEA 

7AA2 

016550 

.WORD JMSC 

BFEC 


0 1 6560 

ROMCBAUD 

BFEC 

.J* .^.i L/ 7 Jj 

0 1 6570 

.BYTE H 300 ",15 

BFFO 

9B9B 




=0000 

016580 

.IF *>*>BFF$ 



016590 

.ERROR “OUT 



0 1 6600 

. END IF 

»< 

=000 1 

0 1661 0 

. IF PROM _ 

BFF2 


0 1 6620 

* = &BFFA J 

BFFA 

27AD 

0 1 6630 

.WORD STERM 

BFFC 

00 

016640 

.BYTE 0 

BFFD 

05 

0 1 6650 

. BYTE 5 ; B 

BFFE 

EBAC 

0 1 6660 

-WORD START 



0 1667 0 

. END IF 



016680 

N 

H 


7 Y cp pP <4e:0 ^ 


ASSEMBLY ERRORS: O 17172 BYTES FREE 


08 
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=0006 

ACK 

BB03 

A00NC2 

=0800 

AFP 

BB23 

AKEY? 

=0208 

ALLPOT 

BB07 

ANSF1 

0496 

ANSFLG 

=0201 

AUDC1 

=0208 

AUDCTL 

=0200 

AUDF1 





B792 

BAOBD 

B590 

BADBUF 

BBA9 

BADK1 

BBE7 

BADNUM 

0568 

BAUD 

B814 

BOBO 

B53B 

BOEFLT 

AOFD 

BFNOTFUL 

0565 

BFPTS 

B4C 1 

BFULL 

ABE7 

BINOEX 

0489 

BINF 

A5A3 

BIT8 

048 A 

BIT8F 

ABO 1 

BLKNUM 

ABEA 

BLOOP 

AFEF 

BMENU 

B97D 

BMES1 

B98A 

BMES2 

B4S2 

BOK 

0482 

BOTBUF 

=00 1 1 

BRKKEY 

0096 

BUFF 

B53 1 

BUFF? 

0080 

BUFFER 

04A5 

BUFFMUM 

B 1 39 

BUFFSZ 

=OOFE 

BUFLEN 

0484 

BUFMAX 

ABAo 

BUFOK 

=OOCC 

BUFPTR 

B5B 1 

BUFUSED 

A94E 

BU661 

A6F 6 

BUGG2 





=00 1 8 

can 

AE26 

CARND 

A33F 

CAROK 

AODC 

CASBT 

04SC 

CASFLG 

AF83 

CB 

0403 

CBAUD 

B7CC 

CBOK 

AF8A 

CC 

BC3B 

CCHAN1 

=oooc 

rn nsF 

AF9 1 

CD 

BB6C 

C0IAL1 

AF98 

CE 

AF9F 

CF 

=0007 

CGETC 

=0005 

CGETR 

=02FC 

CH 

AFAE 

CHI 

=0401 

CHACTL 

BB54 

CHANSWR 

=02F3 

CHART 

=02F4 

CHBAS 

=0409 

CHBASE 

BO 56 

CHBAUO 

BC33 

CHCHAN 

BB5F 

CHDIAL 

A1FF 

CHK 

A 146 

CHKBUF 

05 5 E 

CHKSUM 

BC8A 

CHL02 

BC5A 

CHLOAO 

BCAA 

CHSA2 

BCBO 

CHSA3 

BC90 

CHSAVE 

AFCO 

Cl 

AB29 

CIOCB 

=E456 

C 1 0 V 

AFCF 

CJ 

BO 10 

CK 

B65B 

CKDOPN 

A21E 

CKLOOP 

BO 17 

CL 

=FCD8 

CL I CK 

A286 

CL00P1 

A09 1 

Cl nsF 

BO IE 

CM 

B41F 

CMPC 

=00 1 A 

COLBK 

04 8 F 

COLFLG 

=02C4 

COLORO 

=00 1 6 

COLPFO 

=0012 

COLPMO 

A63F 

CON 1 

A3AB 

C0N76 

A6A4 

CONGO 

=00 IF 

CONSOL 

A510 

CONTI 2 

=0003 

COPEN 

B230 

COPYBF 

B025 

CP 

BO 40 

CPO 

B03C 

CPI 

B042 

CPSTR 

=000B 

CPUTC 

=0009 

CF'UTR 

B2AB 

CP YC AS 

B343 

CPYDN1 

B342 

CPYOONE 

B305 

CPYLOOP 

B374 

CF'YMOD 

B2E9 

CPYOK 1 

B2B0 

CPYOP 1 

B396 

CPYOPN 

ADCC 

CRLOOP 

=OOOD 

CSTATUS 

BO 4 8 

CT 







BB35 

0? 

=030 A 

DAUX1 

=03 OB 

DAUX2 

=0305 

DBUFHI 

=0304 

OBUFLO 

=0309 

OBYTHI 

=0308 

OBYTLO 

=0302 

DCOMND 

=0300 

DDEVIC 

04B9 

DEFFLG 

B1 E8 

DELBF 

B204 

DELYES 

0567 

OERFLG 

BOEC 

OERROR 

B57 1 

DEYON 

B569 

DEYLF* 

BA7E 

OIAL 

04 A3 

OIALADO 

=00C8 

DIALBF 

O 4 A 6 

DIALF 

BBD8 

OIALNUN 

BBFE 

OIALOOP 

BBFO 

OIGOK 

B678 

0 INPUT 

B656 

DIRBCK 

B509 

DIRDISK 

B0C6 

DIRDONE 

BO 5 9 

DIRECT 

BOBB 

DIRERR 

B73C 

01 RPR 

BCDO 

0 I SKBT 

0490 

D I SKF 

BA78 

DISKM 

B6 1 6 

DISKMOD 

BC28 

DLDONE 

=0403 

DLISTH 

=0402 

OL I STL 

=0400 

OMACTL 

A72B 

OONT 

B69F 

DOPNOK 

=oooc 

DOS I N I 

=000 A 

OOSVEC 

B673 

DOUTPUT 

0495 

DPRFLG 

AO AC 

DRIVER 

B5F8 

0 RPR OK 

A49S 

OSKERR 

ABOC 

DSKF I X 

=02FE 

DSPFLG 

=0303 

DSTATS 

=0306 

DTIMLO 

=0301 

DUN IT 

A 40 9 

DUPHLF 

048B 

OUPLF 





BB3C 

E^' 

A5EE 

ECHO 

A5EB 

ECHOO 

AC7A 

EDERR 

AB83 

EDIT 

AC 1 1 

EOITLP 

ACOE 

EDITOR 

AC93 

EFULL 

A3 02 

ENOOPT 

BF06 

ENOPR 

0569 

ENDRAM 

A372 

ENDTE1 

A3DA 

ENOTEST 

=0004 

EOT 

A AGO 

EOTMES 

0560 

ERFL 

B4AB 

ERR OK 


EVENP 





AE60 

FI 

BB43 

F? 

=D8E6 

FASC 

=DB2S 

F 0 1 V 

BBC5 

FINDNUM 

=D0B6 

FMOVE 

B0D9 

FNDCR 

A2D3 

FORSEC 

=0902 

FPI 

B 1 CO 

FF’RINT 

=0004 

FRO 

= D A 6 O 

FSUB 

0494 

FULLF 







AE6A 

GO 

AF45 

6CHCE 

B1F3 

GCHCE1 

AF7C 

GCHOK 

B7EE 

GOBAUD 

A0C4 

GETBIT 

A025 

GETEM 

A 000 

GETHOR 
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BD02 

GETKEY 

A85C 

GETREC 

A86 1 

GETRTY 

B624 

GFILEN 

B547 

6 KEY 

A43A 

GOERR 

BBAF 

GOODKY 

A939 

GOODREC 

056B 

GOTREC 

=026F 

GPRIOR * 

=D01 D 

GRACTL 

=D0 1 1 

GRAFM 

—DODD 

GRAFPO 

A 7 04 

GREC 

A39E 

GREEN 

A8A0 

GSOH 

A466 

GTERM 

A A 50 

GXC 

AA4B 

GXCHAR 



AE6D 

HO 

AE86 

HI 

04A7 

HANDFLG 

BB4E 

HANGF* 

A2F6 

HANGUP 

O 4 A A 

HDRBFF 

=D0 1 4 

HITCLR 

=D004 

HPOSMO 

—DO GO 

HPOSF'O 

= D 4 U 4 

HSCROL 





AE90 

10 

AEAC 

I 1 

04 B7 

IBUFERR 

=034A 

ICAX1 

=03 4 B 

ICAX2 

=0345 

ICBAH 

=0344 

ICBAL 

=0349 

ICBLH 

=0348 

ICBLL 

=0342 

ICCMD 

=0342 

ICCOM 

=D9AA 

IFF* 

A42B 

INCH 

AA7 1 

INCHAR 

A59C 

INCONV 

ABAC 

INCRND 

ABF3 

I NDONE 

04 AO 

INI BYTE 

0499 

INIT 

AD IE 

INI TONE 

04BC 

INF* 

04B6 

INPBFPT 

04 B1 

I NPB I T 

=OOCA 

I NF’BUF 

04B3 

INPINT 

AAAA 

n r~t ft r i 

INTEST 

B817 

INTOK 

AF7A 

INVDONE 

0498 

INVEND 

AF4F 

I NVLP 

0497 

INVST 

=0340 

IOCB 

=D20E 

IRQEN 

=D20E 

IRQST 

04 B 8 

I STOP 



AEB6 

JO 

AED4 

J1 

AEEO 

J 2 

A 1 DO 

JCLOSE 

B47F 

JLD 1 

A290 

JLF*2 

AFBD 

JMEN 

A 172 

JMOD INIT 

A268 

JMSA 

A27 1 

JMSB 

A27A 

JMSC 

A 250 

JMSTATS 

A256 

J OFFHOOK 

A25F 

JONHOOK 

A 182 

JOPEN 

A 1 E6 

JREAD 

04BD 

JTABLE 

A214 

J WRITE 





AEEA 

KO 

AF 1 7 

K1 

AF23 

K2 

=D209 

KBCODE 

A46A 

KEEPER 

AB81 

KEYB 

B55 1 

KEYOK 

B55B 

KEYRND 

A2E7 

KEYSNT 

056 1 

KEYTOG 





05 6 A 

LASTCH 

B592 

LASTONE 

0563 

LASTREC 

BDD3 

LCR1 

B46B 

LD1 

B422 

LDCAS 

B4D0 

LDERR 

B44D 

LDLOOP 

BC66 

LDNUM 

B4DB 

LDONE 

B434 

LDOPN 

ACCS 

LINE 

B3AB 

LOADBF 

0492 

LOADF 

BDC3 

LOOKCR 

A27E 

LOOP 1 

A3 15 

LOOF‘2 

A324 

LOOF'3 

A04F 

LOOPZA 

A34F 

LF* 1 

A35 1 

LF‘2 

=0234 

LFENH 

=0235 

LF'ENV 

A6F8 

LUF* 

A6FA 

LUPNOW 

A9C3 

LZP 





BE 04 

MO 

=D000 

MOPF 

=D008 

MOF’L 

BEOS 

Ml 

BE 90 

M i 0 

BEAC 

Ml 1 

BEC6 

Ml 2 

BEDS 

M 1 3 

BEEF 

Mi4 

BEF8 

Ml 5 

BF 1 3 

Ml 6 

BF25 

M 1 7 

BF49 

M18 

BF 6B 

M 1 9 

BE07 

M2 

BF83 

M20 

BF9A 

M2 1 

BFA8 

M2 2 

BFC4 

M23 

BFC7 

M2 4 

BFCB 

M25 

BFCD 

M26 

BEOF 

M3 

BE IB 

M4 

BE32 

M5 

BE4 1 

M6 

BE54 

M7 

BDA2 

M79 

BE66 

M8 

BDAE 

M80 

BE74 

M9 

0486 

MAX TOP 

B825 

MBAUD 

B83B 

MBAUD! 

BD95 

MCASS 

B9A8 

MCOF’Y 

BA77 

MCOF’Y 1 

A49B 

MCPERR 

BD1D 

MDIAL1 

BD2D 

MDIAL2 

BD95 

MDIAL3 

B6AC 

MD I RD 

B73B 

MDIRD1 

BDSS 

MD I SK 

B38 1 

MDMOK 

ACBO 

MED I T 

=02E7 

MEMLO 

=02E5 

MEMTOF* 

ADDF 

MENU 

AF4A 

MENU1 

B996 

MERROR 

B850 

MES 

B90D 

MESF 

B922 

MESH 

B934 

MES I 

B94C 

MES J 

B966 

MESF* 

B6A0 

MFILEN 

B9E8 

MLOAD 

BA26 

MLOAD 1 

BA65 

ML0AD4 

A9A9 

MOAN 

A743 

MOCHR 

AOSB 

MOD INIT 

B606 

MODI BK 

A 1 F 1 

M0VE4 

AO A3 

MSPEC1 

A0A6 

MSPEC2 

AO A 9 

MSPEC3 

A09A 

MSTATS 





A4 AF 

NAFULL 

=00 1 5 

NAK 

A 59 5 

NBEL 

A59B 

NBSF* 

BDEC 

NCAR 1 

B4BE 

NCARRY 

A58F 

NCLR 

A5SS 

NCR 

A 60 2 

NECHO 

A38E 

NENDTE 

A 4 3D 

NERK08 

A57A 

NERR4 

AB85 

NEWBUFF 

=D40E 

NMIEN 

=D40F 

NMIRES 

=D40F 

NMIST 

ADC 4 

N080C0L 

A3 1 C 

NOAT 1 

A5B4 

NOBEL 

A SOB 

NOBERR 

A35E 

NOBRK 1 

A5BA 

NOBSP 

A1 14 

NOBYTE 

AC86 

NOCAR 1 

AC5E 

NOCARRY 

BADS 

NOCARY 

AA39 

NOCHAR 

A SCO 

NOCLR 

A5AE 

NOCR 

B360 

NOCR 1 

A983 

NODSK 

A66F 

NOEKCH 
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A56F 

NOEOF 

B2A8 

NOFN 

A42S 

NOGO 

A50C 

NO INCH 

AF6D 

NOINV 

A40A 

NOKEY 

BOOD 

N00PN1 

A6E3 

NOOPT 

A29E 

NOOF’T 1 

A 23 7 

NOPAR 

A873 

NOP ST 

A8C1 

N0PST2 

A8B2 

NOPSTOP 

A651 

NO OUT 

A883 

N0REC3 

A2AB 

NORING 

A3CA 

NOSAVM 

A539 

NOBFUL 

AS90 

N0BT2 

A384 

NOSTART 

A0D6 

NOSTOP 

A662 

NOTAGN 

B565 

NOTBAO 

A67E 

NOTCAN 

AC28 

NOTFUL 

AAB9 

NOTNOW 

A5C-9 

NOTRAN 

A4E7 

NOTZE 

A 08 2 

NOWAY 

A4B8 

NOZIP 

B75E 

NPROPN 

A886 

NREMSTO 

A2C5 

NSTART 

A64C 

NT I ME 

BB05 

NUMFNO 

A86E 

NXTOK 

A8A8 

NY 







=000 1 

OBFLEN 

AB57 

OEOIT 

AO AO 

OFFHOOK 

A21 1 

OK 5 

AB32 

OKEYB 

A 137 

ONEOUT 

/\ "T '" r •> 

r*t 1 

ONESEC 

A 090 

ONHOOK 

B2A 1 

OPARNO 

BCD A 

OPOEV 

A08E 

OPEN 

0560 

OPFLG 

A96B 

OPSTOP 

=E474 

OSRETN 

04B5 

OUTBFF’T 

04 BO 

OUTBIT 

04B4 

OUTBUF 

A57E 

OUTCON 

A5CA 

OUTDO 1 

04B2 

OUT I NT 

A06D 

OUT 2 







=D004 

F'OPF 

=000C 

POPL 

=0270 

PADOLO 

A737 

PAOLOF* 

U 4 B A 

PARFLG 

B1BC 

PA SC 

=0302 

F'BCTL 

AACF 

PBLKNUM 

=02 CO 

PCOLRO 

BO 8 2 

PD I R 

= 0 4 U C 

PENH 

=04 0 0 

F'ENV 

056C 

PHONE 

A2A6 

PHYES 

=0300 

P I A 

AA74 

PIT 

04 A 2 

PLCNT 

BOBS 

PL I NE 

BA93 

PLOOP 

=00C6 

PLPTR 

=0407 

PMBASE 

=00 1 0 

POKMSK 

=0300 

PORTA 

=0300 

PORTB 

=0200 

POTO 

=D20B 

POTGO 

BBOC 

PREBT 

049 1 

PRFLG 

=00 IB 

PR I OR 

BBA4 

F’RNUMB 

=000 1 

PROM 

BCBB 

PROPEN 

AF4D 

PROPT 

=0000 

PRPTR 

BCEO 

PRTRANS 

BCEB 

PRTROK 

=OOCE 

PTR 

B319 

PTR INC 

B3 1 F 

PTROK 

BC 1 0 

PULSE 

BC08 

PLJLWAIT 

AS IB 

F'XMEB 1 

A835 

PXMES6 

A7E7 

PXMES7 

A80 1 

PXMES8 







=020 A 

RANDOM 

A552 

RD I SK 

A 09 4 

READ 

A956 

RECLOP 

A9E4 

REMABORT 

A687 

REMROY 

A90E 

REMBTOP 

AOS 1 

RESTRT 

A 2 4 A 

RET 123 

A543 

RETER2 

A240 

RETNOW 

A53F 

RET0K2 

A681 

RETRY 1 

A 144 

RETURN 

04 A 8 

RENAME 

BFEC 

ROMCBAUO 

BF08 

ROM J TABLE 

AOE 1 

ROTATE 

=00 1 2 

RTCLOK 

A730 

RTFOL 

A2C2 

RTMENU 

A 088 

RUNITZ 





A9BE 

SAV 

0493 

SAVEF 

0480 

SAVMOD 

A996 

SAVPREC 

A951 

SAVREC 

A4A4 

SAVTOBF 

04BB 

SCRAT 

048E 

SCRFLG 

=0231 

SDLSTH 

=0230 

BOLSTL 

=022F 

SOMCTL. 

BC2 1 

SEC 1 OTH 

A1 IB 

SENDBIT 

A 4 25 

SENOUT 

=0002 

SENF'TR 

A63A 

SENREC 

A694 

SEOT 

=020 A 

SERIN 

= D20C 

SEROUT 

=E45C 

SETVBV 

v a— Ju* I—. 

SHFLK 

A22 1 

SHFT 

=E459 

SIOV 

=DOOC 

SIZEM 

=0008 

SI ZERO 

=D20F 

SKCTL 

=D20A 

SKREST 

=D20F 

SKSTAT 

=000 1 

BOH 

=022B 

SRTIMR 

jiiu .**. "t 

— U uL O XL 

SBKCTL 

ACEB 

START 

A027 

STERM 

A 03 2 

STERM- 1 

=0278 

ST I CKO 

=0209 

STIMER 

A 30 A 

STKEY 

A70C 

ST OK 

A71 1 

ST0K2 

=0284 

STRIGO 

B 1 BO 

SUBTR 







AF20 

TO 

A27E 

TERM 

B053 

TERM 1 

B502 

TERM2 

B518 

TER M3 

A A9 4 

TESOPT 

A37A 

TESTER 

ABF 4 

TMANY 

ABCS 

TOMANY 

BBDF 

TONE 

0480 

TOPBUF 

0488 

TRANF 

=0010 

TRIGO 

AA27 

TST2 

AA5S 

TSTBUF 



B766 

VBAUD 

=04 0 B 

VCOUNT 

=00 1 c 

VOELAY 

=0216 

VIMIRQ 

=0405 

VSCROL 

=021 0 

VTIMR1 





BC10 

W10TH 

BOD 4 

WAITKEY 

A500 

WAITL 

A50F 

WAITS 

AO 1 A 

WARM 

A2B7 

WCARR 

A699 

WHAP 

A 09 7 

WRITE 

=040 A 

WSYNC 







ASF 1 

XACKCO 

A880 

XBADSH 

0564 

XBLKNUM 

0562 

XBYTE 

A8EB 

XIG4 

A8CE 

XIG0P3 

AA IF 

XIGRC1 

AA 1 A 

XIGREC 

=E462 

XITVBV 

0409 

XMBUFF 

A74B 

XMES1 

A764 

XMES3 

A77B 

XMES4 

A794 

XMES5 

A7BB 

XMES6 

A702 

XMES7 
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A7DC 

XMESS 

A7E7 

XMES9 

A 90 3 

XMLOP 

A 60 4 

XMODEM 

ASF9 

XNUMOK 

A 92 A 

X OK 1 

A6C7 

X BE NLP 

A633 

XSNLP 

055D 

XTEMP2 



A293 

YANSF 

A DBG 

YEAH 

AFE6 

Z3SC0L 

AFF2 

ZBOCOL 


AABC 

XMEXIT 

A84F 

XMLOAD 

055F 

XMODF 

A61B 

XMSAVE 

A90E 

X0K2 

AS57 

X RETRY 

055B 

XTEMP 

055C 

X TEMPI 

AGED 

ZIPO 

A 1 3C 

Z I PSK I P 


